From b2d68b561a158073038816542b1f1286b9ba3462 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 26 Sep 2001 15:30:57 +0000
Subject: Protection contre erreurs Unix

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

(limited to 'scripts')

diff --git a/scripts/coqc.ml b/scripts/coqc.ml
index a05f20728d..26262a7ddb 100644
--- a/scripts/coqc.ml
+++ b/scripts/coqc.ml
@@ -85,7 +85,8 @@ let rec make_compilation_args = function
 
 let compile command args files =
   let args' = command :: args @ (make_compilation_args files) in
-  Unix.execvpe command (Array.of_list args') environment 
+  Unix.handle_unix_error
+    Unix.execvpe command (Array.of_list args') environment 
 
 (* parsing of the command line
  *
-- 
cgit v1.2.3