await-timeout ( count-down timeout -- )

Vocabulary

concurrency.count-downs

Inputs

count-down	an object
timeout	an object

Outputs

None

Definition

USING: accessors concurrency.mailboxes concurrency.promises
kernel ;

IN: concurrency.count-downs

: await-timeout ( count-down timeout -- )
    [ promise>> ] dip ?promise-timeout ?linked t assert= ;