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.
more uniform group for map_future, which is relevant for cancel in worker_task vs. future_job -- prefer peer group despite 81d03a29980c;
authorwenzelm
Thu, 18 Oct 2012 13:53:02 +0200
changeset 49910 db618c65a01d
parent 49909 904b7d3bde5e
child 49911 262c36fd5f26
more uniform group for map_future, which is relevant for cancel in worker_task vs. future_job -- prefer peer group despite 81d03a29980c;
src/Pure/Concurrent/future.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Concurrent/future.ML	Thu Oct 18 13:26:49 2012 +0200
+++ b/src/Pure/Concurrent/future.ML	Thu Oct 18 13:53:02 2012 +0200
@@ -563,7 +563,7 @@
 fun map_future f x =
   let
     val task = task_of x;
-    val group = new_group (SOME (Task_Queue.group_of_task task));
+    val group = Task_Queue.group_of_task task;
     val (result, job) = future_job group true (fn () => f (join x));
 
     val extended = SYNCHRONIZED "extend" (fn () =>
isabelle