while-mailbox-empty ( mailbox quot -- )
Mailboxes

Prev:

mailbox-empty? ( mailbox -- bool )

Vocabulary
concurrency.mailboxes

Inputs

mailbox	a mailbox
quot	a quotation with stack effect ( -- )

Outputs
None

Word description
Repeatedly call the quotation while there are no items in the mailbox.

Definition

USING: kernel ;

IN: concurrency.mailboxes

: while-mailbox-empty ( mailbox quot -- )
    [ [ mailbox-empty? ] curry ] dip while ; inline