mailbox-of ( thread -- mailbox )


Vocabulary
concurrency.messaging

Inputs
threadan object


Outputs
mailboxan object


Definition
IN: concurrency.messaging

GENERIC: mailbox-of ( thread -- mailbox )


Methods
USING: accessors concurrency.mailboxes concurrency.messaging
kernel kernel.private threads ;

M: thread mailbox-of
dup mailbox>>
[ { mailbox } declare ]
[ <mailbox> [ >>mailbox drop ] keep ] ?if ; inline