changeset 51990 | cc66addbba6d |
parent 51661 | 92e58b76dbb1 |
child 52558 | 271663ddf289 |
--- a/src/Pure/Concurrent/future.ML Tue May 14 20:32:10 2013 +0200 +++ b/src/Pure/Concurrent/future.ML Tue May 14 20:46:09 2013 +0200 @@ -193,7 +193,7 @@ val active = count_workers Working; val waiting = count_workers Waiting; val stats = - [("now", signed_string_of_real (Time.toReal (Time.now ()))), + [("now", Markup.print_real (Time.toReal (Time.now ()))), ("tasks_proof", Markup.print_int (! forked_proofs)), ("tasks_ready", Markup.print_int ready), ("tasks_pending", Markup.print_int pending),