(mailbox-put) ( obj mailbox: mailbox -- )

Vocabulary

concurrency.mailboxes.private

Inputs

obj	an object
mailbox	a mailbox

Outputs

None

Definition

USING: accessors concurrency.conditions deques kernel typed ;

IN: concurrency.mailboxes.private

TYPED: (mailbox-put) ( obj mailbox: mailbox -- )
    [ data>> push-front ] [ threads>> notify-all ] bi ;