Disposables are now registered in a global disposables set. To take advantage of...

[factor.git] / basis / concurrency / mailboxes / mailboxes.factor

diff --git a/basis/concurrency/mailboxes/mailboxes.factor b/basis/concurrency/mailboxes/mailboxes.factor
index 419277647d778d7679ff74f765ae59de6b2af94f..7834a2a3e1b4f1be0100645b55260e246b0d2b2c 100755 (executable)
--- a/basis/concurrency/mailboxes/mailboxes.factor
+++ b/basis/concurrency/mailboxes/mailboxes.factor
@@ -6,12 +6,12 @@ arrays assocs init system concurrency.conditions accessors
 debugger debugger.threads locals fry ;\r
 IN: concurrency.mailboxes\r
 \r
-TUPLE: mailbox threads data disposed ;\r
+TUPLE: mailbox < disposable threads data ;\r
 \r
 M: mailbox dispose* threads>> notify-all ;\r
 \r
 : <mailbox> ( -- mailbox )\r
-    <dlist> <dlist> f mailbox boa ;\r
+    mailbox new-disposable <dlist> >>threads <dlist> >>data ;\r
 \r
 : mailbox-empty? ( mailbox -- bool )\r
     data>> deque-empty? ;\r