block-if-empty ( promise: promise timeout -- promise )

Vocabulary

concurrency.promises

Inputs

promise	a promise
timeout	an object

Outputs

promise

an object

Definition

USING: accessors concurrency.conditions kernel typed ;

IN: concurrency.promises

TYPED:: block-if-empty
    ( promise: promise timeout -- promise )
    promise box>> [ occupied>> ] curry promise threads>>
    [ timeout "promise" wait ] curry until promise ;