factor: use ??if instead of ?if-old

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

diff --git a/basis/concurrency/messaging/messaging.factor b/basis/concurrency/messaging/messaging.factor
index 50784ef4b143ebf52447dd193c8bc1e70ea7ce71..78aa6e003f6732dd3c8ece5d68e00f2625c98650 100644 (file)
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@@ -9,9 +9,9 @@ GENERIC: send ( message thread -- )
 GENERIC: mailbox-of ( thread -- mailbox )
 
 M: thread mailbox-of
-    dup mailbox>>
+    [ mailbox>> ]
     [ { mailbox } declare ]
-    [ <mailbox> [ >>mailbox drop ] keep ] ?if ; inline
+    [ <mailbox> [ >>mailbox drop ] keep ] ??if ; inline
 
 M: thread send
     mailbox-of mailbox-put ;