send: broadcast to all waiting threads;
authorwenzelm
Sun, 07 Sep 2008 17:46:38 +0200
changeset 28147 b44a7b259909
parent 28146 032cd8a25244
child 28148 a472d844994e
send: broadcast to all waiting threads;
src/Pure/Concurrent/mailbox.ML
--- a/src/Pure/Concurrent/mailbox.ML	Sun Sep 07 17:46:37 2008 +0200
+++ b/src/Pure/Concurrent/mailbox.ML	Sun Sep 07 17:46:38 2008 +0200
@@ -37,7 +37,7 @@
     val _ = Mutex.lock lock;
     val _ = change messages (Queue.enqueue msg);
     val _ = Mutex.unlock lock;
-    val _ = ConditionVar.signal cond;
+    val _ = ConditionVar.broadcast cond;
   in () end) ();