src/Pure/Isar/toplevel.ML
changeset 37856 173974e07dea
parent 37852 a902f158b4fc
child 37858 e1ef6b441fe7
--- a/src/Pure/Isar/toplevel.ML	Tue Jul 20 18:19:50 2010 +0200
+++ b/src/Pure/Isar/toplevel.ML	Tue Jul 20 18:33:19 2010 +0200
@@ -630,7 +630,7 @@
         SOME name => Exn.capture (fn () => Thy_Load.check_name thy_name name) ()
       | NONE => Exn.Result ()) of
     Exn.Result () =>
-      (case transition false tr st of
+      (case transition (is_some (init_of tr)) tr st of
         SOME (st', NONE) => (status tr Markup.finished; async_state tr st'; SOME st')
       | SOME (_, SOME (exn as Exn.Interrupt, _)) => reraise exn
       | SOME (_, SOME exn_info) => (error_msg tr exn_info; status tr Markup.failed; NONE)