wait-for-close-timeout ( mailbox timeout -- )

Vocabulary

concurrency.mailboxes

Inputs

mailbox	an object
timeout	an object

Outputs

None

Definition

USING: destructors kernel ;

IN: concurrency.mailboxes

: wait-for-close-timeout ( mailbox timeout -- )
    '[ _ 2dup wait-for-mailbox wait-for-close-timeout ]
    unless-disposed ;