src/Pure/Thy/thy_info.ML
changeset 31542 3371a3c19bb1
parent 30819 17bd1cf53d8e
child 32061 11f8ee55662d
--- a/src/Pure/Thy/thy_info.ML	Wed Jun 10 00:46:37 2009 +0200
+++ b/src/Pure/Thy/thy_info.ML	Wed Jun 10 11:12:06 2009 +0200
@@ -387,7 +387,7 @@
     (case Graph.get_node tasks name of
       Task body =>
         let val after_load = body ()
-        in after_load () handle exn => (kill_thy name; raise exn) end
+        in after_load () handle exn => (kill_thy name; reraise exn) end
     | _ => ()));
 
 in