# HG changeset patch
# User wenzelm
# Date 1146595361 -7200
# Node ID 98d82187392de17ee6ce6c54af26934030fc4733
# Parent  e3a39dae2004cd7f19f2ff362cae1b8cc236546a
handle exception SYS_ERROR;

diff -r e3a39dae2004 -r 98d82187392d src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Tue May 02 20:42:40 2006 +0200
+++ b/src/Pure/Isar/toplevel.ML	Tue May 02 20:42:41 2006 +0200
@@ -535,6 +535,7 @@
   | exn_msg _ RESTART = "Restart."
   | exn_msg _ Interrupt = "Interrupt."
   | exn_msg _ Output.TOPLEVEL_ERROR = "Error."
+  | exn_msg _ (SYS_ERROR msg) = "## SYSTEM ERROR ##\n" ^ msg
   | exn_msg _ (ERROR msg) = msg
   | exn_msg detailed (EXCEPTION (exn, msg)) = cat_lines [exn_msg detailed exn, msg]
   | exn_msg detailed (EXCURSION_FAIL (exn, msg)) = cat_lines [exn_msg detailed exn, msg]