# HG changeset patch
# User wenzelm
# Date 1253464675 -7200
# Node ID 8ef1aa1cfcc75d40c52599091a77194a91fce7d3
# Parent  20f1edc87b7d74f4513bfb00f303801b32cd8bac
scheduler backdoor: 9999 means 1 worker;

diff -r 20f1edc87b7d -r 8ef1aa1cfcc7 src/Pure/Concurrent/future.ML
--- a/src/Pure/Concurrent/future.ML	Sun Sep 20 18:15:07 2009 +0200
+++ b/src/Pure/Concurrent/future.ML	Sun Sep 20 18:37:55 2009 +0200
@@ -257,7 +257,7 @@
               "SCHEDULE: disposed " ^ string_of_int (length dead) ^ " dead worker threads")));
 
     val m = if ! do_shutdown then 0 else Multithreading.max_threads_value ();
-    val mm = (m * 3) div 2;
+    val mm = if m = 9999 then 1 else (m * 3) div 2;
     val l = length (! workers);
     val _ = excessive := l - mm;
     val _ =