diff options
author | 2015-05-18 19:10:52 +0200 | |
---|---|---|
committer | 2015-05-18 19:11:23 +0200 | |
commit | 9dc2f675224b67ee3a35c2eb50d6a048a329a68a (patch) | |
tree | 87c8a18fa6bbaa98e39d799360ae265dccd985e8 | |
parent | ea3909466eaaf86ff212c0a002e5df11e4a979f5 (diff) |
Uncaught exception termination exits coqtop with the anomaly errno.
-rw-r--r-- | toplevel/coqtop.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 7ba0c55a1..826381028 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -618,7 +618,8 @@ let init arglist = if !batch_mode then mt () else str "Error during initialization:" ++ fnl () in - fatal_error (msg ++ Coqloop.print_toplevel_error any) (Errors.is_anomaly (fst any)) + let is_anomaly e = Errors.is_anomaly e || not (Errors.handled e) in + fatal_error (msg ++ Coqloop.print_toplevel_error any) (is_anomaly (fst any)) end; if !batch_mode then begin flush_all(); |