author | wenzelm |
Tue, 01 Feb 2011 19:39:26 +0100 | |
changeset 41678 | 2b80ee995f95 |
parent 41677 | fa0da47131d2 |
child 41679 | 79716cb61bfd |
--- a/src/Pure/Thy/thy_info.ML Mon Jan 31 23:53:07 2011 +0100 +++ b/src/Pure/Thy/thy_info.ML Tue Feb 01 19:39:26 2011 +0100 @@ -187,7 +187,7 @@ val future = singleton - (Future.forks {name = "theory " ^ name, group = NONE, deps = task_deps, pri = 0}) + (Future.forks {name = "theory:" ^ name, group = NONE, deps = task_deps, pri = 0}) (fn () => (case map_filter failed deps of [] => body (map (#1 o Future.join o get) parents)