From 41ff0bcc426003066da06e8e3f0994fdae70db66 Mon Sep 17 00:00:00 2001
From: glondu
Date: Mon, 12 Jul 2010 15:04:31 +0000
Subject: coqide: s/Sys.argv.(0)/Sys.executable_name/ for coqtop (cf #2341)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13277 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coq.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/coq.ml b/ide/coq.ml
index 9f1c807b84..92ded059ca 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -102,7 +102,7 @@ let toplvl_ctr = ref 0
 let toplvl_ctr_mtx = Mutex.create ()
 
 let spawn_coqtop sup_args =
-  let prog = Sys.argv.(0) in
+  let prog = Sys.executable_name in
   let dir = Filename.dirname prog in
   Mutex.lock toplvl_ctr_mtx;
   try 
-- 
cgit v1.2.3