diff options
| author | letouzey | 2013-03-13 00:00:49 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-13 00:00:49 +0000 |
| commit | c526b81a9a682edf2270cb544e61fe60355003dc (patch) | |
| tree | 56d5b350997fd29d02fc65b584e6146c81c424b6 /scripts | |
| parent | a5aaef33d5cab01177105299a2414c9544860cca (diff) | |
Restrict (try...with...) to avoid catching critical exn (part 13)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16290 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/coqmktop.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml index a9ec682209..88156f6fa4 100644 --- a/scripts/coqmktop.ml +++ b/scripts/coqmktop.ml @@ -316,6 +316,6 @@ let main () = clean main_file; raise reraise let retcode = - try Printexc.print main () with _ -> 1 + try Printexc.print main () with any -> 1 let _ = exit retcode |