mailbox-get-timeout? ( mailbox timeout pred -- obj )
Mailboxes
Prev:mailbox-get? ( mailbox pred -- obj )
Next:mailbox-get-all ( mailbox -- seq )


Vocabulary
concurrency.mailboxes

Inputs
mailboxan object
timeoutan object
predan object


Outputs
objan object


Definition
USING: accessors dlists kernel ;

IN: concurrency.mailboxes

: mailbox-get-timeout? ( mailbox timeout pred -- obj )
[ block-unless-pred ] [ [ drop data>> ] dip delete-node-if ]
3bi ; inline