mailbox-of ( thread -- mailbox )

Vocabulary

concurrency.messaging

Inputs

thread

an object

Outputs

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