future_terminal_proof: check Future.enabled;
authorwenzelm
Tue, 06 Jan 2009 13:36:42 +0100
changeset 29364 cea7b4034461
parent 29363 c1f024b4d76d
child 29369 393f72663b49
child 29374 ff4ba1ed4527
future_terminal_proof: check Future.enabled;
src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Tue Jan 06 08:50:12 2009 +0100
+++ b/src/Pure/Isar/proof.ML	Tue Jan 06 13:36:42 2009 +0100
@@ -1029,7 +1029,7 @@
 end;
 
 fun future_terminal_proof meths state =
-  if is_relevant state then global_terminal_proof meths state
+  if is_relevant state orelse not (Future.enabled ()) then global_terminal_proof meths state
   else #2 (state |> future_proof (fn state' =>
     Future.fork_pri ~1 (fn () => ((), global_terminal_proof meths state'))));