author | wenzelm |
Thu, 02 Oct 2008 14:22:45 +0200 | |
changeset 28460 | 455ef74607d7 |
parent 28459 | f6a4d913cfb1 |
child 28461 | 640b7f8f9cad |
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];