src/Pure/ML-Systems/multithreading.ML
changeset 28460 455ef74607d7
parent 28187 4062882c7df3
child 28554 a6065ce44984
     1.1 --- a/src/Pure/ML-Systems/multithreading.ML	Thu Oct 02 14:22:44 2008 +0200
     1.2 +++ b/src/Pure/ML-Systems/multithreading.ML	Thu Oct 02 14:22:45 2008 +0200
     1.3 @@ -37,7 +37,7 @@
     1.4  
     1.5  val available = false;
     1.6  val max_threads = ref (1: int);
     1.7 -fun max_threads_value () = Int.max (! max_threads, 1);
     1.8 +fun max_threads_value () = 1: int;
     1.9  
    1.10  val no_interrupts =
    1.11    [Thread.EnableBroadcastInterrupt false, Thread.InterruptState Thread.InterruptDefer];