oops fix walker..

2008-08-30 13:06:06 -05:00 · 2008-08-30 13:06:06 -05:00 · 592df74336
parent ad0e111572
commit 592df74336
1 changed files with 1 additions and 1 deletions
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@ -11,7 +11,7 @@ GENERIC: send ( message thread -- )

 : mailbox-of ( thread -- mailbox )
    dup mailbox>> [ ] [
-        <mailbox> swap >>mailbox
+        <mailbox> [ >>mailbox drop ] keep
    ] ?if ;

 M: thread send ( message thread -- )