Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Document.async_state: some attempts to make this more robust wrt. cancelation of the main transaction -- avoid confusing feedback about pending forks;
authorwenzelm
Wed, 15 Sep 2010 16:06:52 +0200
changeset 39391 f1d6ede54862
parent 39390 aa3b8787edd7
child 39400 e8b94d51fa85
Document.async_state: some attempts to make this more robust wrt. cancelation of the main transaction -- avoid confusing feedback about pending forks;
src/Pure/PIDE/document.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/PIDE/document.ML	Wed Sep 15 16:04:40 2010 +0200
+++ b/src/Pure/PIDE/document.ML	Wed Sep 15 16:06:52 2010 +0200
@@ -204,10 +204,10 @@
 fun async_state tr st =
   if Toplevel.print_of tr then
     ignore
-      (Future.fork
+      (Future.fork_group (Task_Queue.new_group NONE)
         (fn () =>
           Toplevel.setmp_thread_position tr
-            (fn () => Future.status (fn () => Toplevel.print_state false st)) ()))
+            (fn () => Toplevel.print_state false st) ()))
   else ();
 
 in
isabelle