Multithreading.enabled;
authorwenzelm
Thu, 09 Oct 2008 20:53:22 +0200
changeset 28553 675270d2d304
parent 28552 f8719bcc5006
child 28554 a6065ce44984
Multithreading.enabled;
src/Pure/Isar/toplevel.ML
--- a/src/Pure/Isar/toplevel.ML	Thu Oct 09 20:53:21 2008 +0200
+++ b/src/Pure/Isar/toplevel.ML	Thu Oct 09 20:53:22 2008 +0200
@@ -723,7 +723,7 @@
   let
     val end_pos = if null input then error "No input" else pos_of (fst (List.last input));
 
-    val immediate = not (! future_scheduler) orelse Multithreading.max_threads_value () <= 1;
+    val immediate = not (! future_scheduler andalso Multithreading.enabled ());
     val (future_results, end_state) = fold_map (unit_result immediate) input toplevel;
     val _ =
       (case end_state of