# HG changeset patch
# User wenzelm
# Date 1197145207 -3600
# Node ID 222b91dd754ce05465700abd13a51f372911abc2
# Parent  72e71bcf42391cb61bd0a713a56e0628935577e3
Isar loop: recover after toplevel crashes;

diff -r 72e71bcf4239 -r 222b91dd754c src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Sat Dec 08 21:20:06 2007 +0100
+++ b/src/Pure/Isar/toplevel.ML	Sat Dec 08 21:20:07 2007 +0100
@@ -36,6 +36,7 @@
   val timing: bool ref
   val profiling: int ref
   val skip_proofs: bool ref
+  val crashes: exn list ref
   exception TERMINATE
   exception RESTART
   exception TOPLEVEL_ERROR
@@ -237,6 +238,7 @@
 val timing = Output.timing;
 val profiling = ref 0;
 val skip_proofs = ref false;
+val crashes = ref ([]: exn list);
 
 exception TERMINATE;
 exception RESTART;
@@ -768,6 +770,9 @@
       NONE => (writeln "\nInterrupt."; raw_loop secure src)
     | SOME NONE => if secure then quit () else ()
     | SOME (SOME (tr, src')) => if >> tr orelse check_secure () then raw_loop secure src' else ())
+    handle exn => (CRITICAL (fn () => change crashes (cons exn));
+      warning "Recovering after Isar toplevel crash -- see also Toplevel.crashes";
+      raw_loop secure src)
   end;
 
 in