# HG changeset patch
# User wenzelm
# Date 1350561182 -7200
# Node ID db618c65a01d51ece6a4d042f4cc7d027095e921
# Parent  904b7d3bde5ef3b8ca00472eb741e80c70bf517e
more uniform group for map_future, which is relevant for cancel in worker_task vs. future_job -- prefer peer group despite 81d03a29980c;

diff -r 904b7d3bde5e -r db618c65a01d src/Pure/Concurrent/future.ML
--- 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 () =>