mailbox-of ( thread -- mailbox )

Vocabulary

concurrency.messaging

Inputs and outputs

thread	an object
mailbox	an 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