stage-quot ( quot count-down -- quot' promise )

Vocabulary

concurrency.combinators.private

Inputs

quot	an object
count-down	an object

Outputs

quot'	an object
promise	an object

Definition

USING: accessors concurrency.count-downs kernel ;

IN: concurrency.combinators.private

: stage-quot ( quot count-down -- quot' promise )
    [ '[ @ _ count-down ] ] [ promise>> ] bi ; inline