tuned;
authorwenzelm
Mon, 30 Aug 2010 14:56:27 +0200
changeset 38873 278f552b2e97
parent 38872 26c505765024
child 38874 4a4d34d2f97b
tuned;
src/Pure/PIDE/document.ML
--- a/src/Pure/PIDE/document.ML	Mon Aug 30 13:01:32 2010 +0200
+++ b/src/Pure/PIDE/document.ML	Mon Aug 30 14:56:27 2010 +0200
@@ -263,7 +263,8 @@
         | force_exec (SOME exec_id) = ignore (Lazy.force (the_exec state exec_id));
 
       val _ = List.app Future.cancel execution;
-      fun await_cancellation () = uninterruptible (fn _ => Future.join_results) execution;
+      fun await_cancellation () =
+        uninterruptible (fn _ => fn () => Future.join_results execution) ();
 
       val execution' = (* FIXME proper node deps *)
         node_names_of version |> map (fn name =>