From 9dc2f675224b67ee3a35c2eb50d6a048a329a68a Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 18 May 2015 19:10:52 +0200
Subject: Uncaught exception termination exits coqtop with the anomaly errno.

---
 toplevel/coqtop.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index 7ba0c55a15..826381028d 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();
-- 
cgit v1.2.3