author | wenzelm |
Sun, 20 Sep 2009 19:17:33 +0200 | |
changeset 32617 | bfbdeddc03bc |
parent 32616 | 8ef1aa1cfcc7 |
child 32620 | 35094c8fd8bf |
--- a/src/Pure/Concurrent/future.ML Sun Sep 20 18:37:55 2009 +0200 +++ b/src/Pure/Concurrent/future.ML Sun Sep 20 19:17:33 2009 +0200 @@ -237,7 +237,7 @@ val total = length (! workers); val active = count_active (); in - "SCHEDULE " ^ string_of_int (Time.toMilliseconds now) ^ ": " ^ + "SCHEDULE " ^ Time.toString now ^ ": " ^ string_of_int ready ^ " ready, " ^ string_of_int pending ^ " pending, " ^ string_of_int running ^ " running; " ^