# HG changeset patch
# User wenzelm
# Date 1406236681 -7200
# Node ID 0c267a7a23f2b75216049431ddff26d058b9fed5
# Parent  232954f7df1c5eb1b3d3c8fb67da00693da52f68# Parent  1c0ee733325f74493e4fa5dd29170a4b2275aa9a
merged

diff -r 232954f7df1c -r 0c267a7a23f2 src/Pure/Isar/runtime.ML
--- a/src/Pure/Isar/runtime.ML	Thu Jul 24 23:01:23 2014 +0200
+++ b/src/Pure/Isar/runtime.ML	Thu Jul 24 23:18:01 2014 +0200
@@ -166,10 +166,10 @@
 (*Proof General legacy*)
 fun thread interrupts body =
   Thread.fork
-    (((fn () => body () handle exn => if Exn.is_interrupt exn then () else reraise exn)
-        |> debugging NONE
-        |> toplevel_error
-          (fn exn => Output.urgent_message ("## INTERNAL ERROR ##\n" ^ exn_message exn))),
+    (fn () =>
+      debugging NONE body () handle exn =>
+        if Exn.is_interrupt exn then ()
+        else Output.urgent_message ("## INTERNAL ERROR ##\n" ^ exn_message exn),
       Simple_Thread.attributes interrupts);
 
 end;