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 ] curry
    unless-disposed ;