diff options
author | 2001-09-26 15:30:57 +0000 | |
---|---|---|
committer | 2001-09-26 15:30:57 +0000 | |
commit | b2d68b561a158073038816542b1f1286b9ba3462 (patch) | |
tree | 8d074767dda5f52b6e4227927168b49635038fde /scripts | |
parent | 691f3676281b7c6947fbdcb2b1110822f142fa1b (diff) |
Protection contre erreurs Unix
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2072 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/coqc.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index a05f20728..26262a7dd 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 * |