diff options
| author | glondu | 2010-07-12 15:04:31 +0000 |
|---|---|---|
| committer | glondu | 2010-07-12 15:04:31 +0000 |
| commit | 41ff0bcc426003066da06e8e3f0994fdae70db66 (patch) | |
| tree | 8cb56f70c98084074697a48c6041733ac24b79a1 | |
| parent | ea83ab467124ccdbe2d98434f409a1061b689267 (diff) | |
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
| -rw-r--r-- | ide/coq.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |