schedule_tasks: single theory is loaded concurrently as well (cf. concurrent Toplevel.excursion);
--- a/src/Pure/Thy/thy_info.ML Tue Sep 30 22:02:53 2008 +0200
+++ b/src/Pure/Thy/thy_info.ML Tue Sep 30 22:02:55 2008 +0200
@@ -367,7 +367,7 @@
fun schedule_tasks tasks n =
let val m = Multithreading.max_threads_value () in
- if m <= 1 orelse n <= 1 then schedule_seq tasks
+ if m <= 1 then schedule_seq tasks
else if Multithreading.self_critical () then
(warning (loader_msg "no multithreading within critical section" []);
schedule_seq tasks)