# HG changeset patch # User wenzelm # Date 1283172987 -7200 # Node ID 278f552b2e97d982aeec15a10dd610006660cd41 # Parent 26c505765024099a7be1188e634f593e07d752ce tuned; diff -r 26c505765024 -r 278f552b2e97 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 =>