src/Pure/goal.ML
changeset 51110 ef0592498418
parent 50987 616789281413
child 51118 32a5994dd205
equal deleted inserted replaced
51109:cabf63b1ddfd 51110:ef0592498418
   180 
   180 
   181 
   181 
   182 (* scheduling parameters *)
   182 (* scheduling parameters *)
   183 
   183 
   184 val parallel_proofs = Unsynchronized.ref 1;
   184 val parallel_proofs = Unsynchronized.ref 1;
   185 val parallel_proofs_threshold = Unsynchronized.ref 50;
   185 val parallel_proofs_threshold = Unsynchronized.ref 100;
   186 
   186 
   187 fun future_enabled_level n =
   187 fun future_enabled_level n =
   188   Multithreading.enabled () andalso ! parallel_proofs >= n andalso
   188   Multithreading.enabled () andalso ! parallel_proofs >= n andalso
   189   is_some (Future.worker_task ());
   189   is_some (Future.worker_task ());
   190 
   190