diff options
| author | herbelin | 2001-09-26 17:08:27 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-26 17:08:27 +0000 |
| commit | 27e7cbab1e36d62a5a8ef98e35587abc17ded86f (patch) | |
| tree | 9f01240d7d3834ea481d517061f8dc61c13e7cf9 | |
| parent | b2d68b561a158073038816542b1f1286b9ba3462 (diff) | |
Compatibilite Windoz
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2073 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/coqtop.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 0b7d699d0d..e777a067b1 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -91,11 +91,11 @@ let re_exec s = let prog = Sys.argv.(0) in let newprog = let dir = Filename.dirname prog in - let com = "coqtop." ^ s in + let com = "coqtop." ^ s ^ Coq_config.exec_extension in if dir <> "." then Filename.concat dir com else com in Sys.argv.(0) <- newprog; - Unix.execvp newprog Sys.argv + Unix.handle_unix_error Unix.execvp newprog Sys.argv end (*s Parsing of the command line. |