src/Pure/PIDE/document.ML
changeset 38873 278f552b2e97
parent 38449 2eb6bad282b1
child 38888 8248cda328de
     1.1 --- a/src/Pure/PIDE/document.ML	Mon Aug 30 13:01:32 2010 +0200
     1.2 +++ b/src/Pure/PIDE/document.ML	Mon Aug 30 14:56:27 2010 +0200
     1.3 @@ -263,7 +263,8 @@
     1.4          | force_exec (SOME exec_id) = ignore (Lazy.force (the_exec state exec_id));
     1.5  
     1.6        val _ = List.app Future.cancel execution;
     1.7 -      fun await_cancellation () = uninterruptible (fn _ => Future.join_results) execution;
     1.8 +      fun await_cancellation () =
     1.9 +        uninterruptible (fn _ => fn () => Future.join_results execution) ();
    1.10  
    1.11        val execution' = (* FIXME proper node deps *)
    1.12          node_names_of version |> map (fn name =>