tuned tracing;
authorwenzelm
Thu, 27 Aug 2009 17:00:03 +0200
changeset 32420 6473d1952023
parent 32419 016134424f71
child 32421 8713597307a9
tuned tracing;
src/Pure/Concurrent/future.ML
--- a/src/Pure/Concurrent/future.ML	Thu Aug 27 11:54:17 2009 +0200
+++ b/src/Pure/Concurrent/future.ML	Thu Aug 27 17:00:03 2009 +0200
@@ -237,7 +237,7 @@
               val total = length (! workers);
               val active = count_active ();
             in
-              "SCHEDULE: " ^
+              "SCHEDULE " ^ string_of_int (Time.toMilliseconds now) ^ ": " ^
                 string_of_int ready ^ " ready, " ^
                 string_of_int pending ^ " pending, " ^
                 string_of_int running ^ " running; " ^