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>> ] promise threads>>
    '[ _ timeout "promise" wait ] until promise ;