changeset 39223 | 022f16801e4e |
parent 39155 | 3e94ebe282f1 |
parent 39220 | 8420a873f534 |
child 39262 | bdfcf2434601 |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer.ML Wed Sep 08 14:46:21 2010 +0200 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer.ML Wed Sep 08 16:01:06 2010 +0200 @@ -452,8 +452,7 @@ else () end - (* FIXME no threads in user-space *) - in if blocking then run () else Toplevel.thread true (tap run) |> K () end + in if blocking then run () else Future.fork run |> K () end val setup = dest_dir_setup