# HG changeset patch
# User wenzelm
# Date 1231023603 -3600
# Node ID 23504001c4fbf16e8529802bf5262b07fca83717
# Parent  6bb007a0f9f2f3d67c85192a160be3984c8465ea
cancel: unique threads;

diff -r 6bb007a0f9f2 -r 23504001c4fb src/Pure/Concurrent/task_queue.ML
--- a/src/Pure/Concurrent/task_queue.ML	Sat Jan 03 21:45:53 2009 +0100
+++ b/src/Pure/Concurrent/task_queue.ML	Sun Jan 04 00:00:03 2009 +0100
@@ -159,7 +159,7 @@
   let
     val _ = invalidate_group group;
     val tasks = Inttab.lookup_list groups gid;
-    val running = fold (get_job jobs #> (fn Running thread => cons thread | _ => I)) tasks [];
+    val running = fold (get_job jobs #> (fn Running t => insert Thread.equal t | _ => I)) tasks [];
     val _ = List.app SimpleThread.interrupt running;
   in null running end;
 
@@ -167,7 +167,7 @@
   let
     fun cancel_job (group, job) (groups, running) =
       (invalidate_group group;
-        (case job of Running thread => (insert eq_group group groups, thread :: running)
+        (case job of Running t => (insert eq_group group groups, insert Thread.equal t running)
         | _ => (groups, running)));
     val (groups, running) = Task_Graph.fold (cancel_job o #1 o #2) jobs ([], []);
     val _ = List.app SimpleThread.interrupt running;