From 27e7cbab1e36d62a5a8ef98e35587abc17ded86f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 26 Sep 2001 17:08:27 +0000
Subject: Compatibilite Windoz

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2073 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/coqtop.ml | 4 ++--
 1 file 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.
-- 
cgit v1.2.3