count-down-check ( count-down -- )

Vocabulary

concurrency.count-downs

Inputs

count-down

an object

Outputs

None

Definition

USING: accessors concurrency.promises kernel math ;

IN: concurrency.count-downs

: count-down-check ( count-down -- )
    dup n>> zero? [ t swap promise>> fulfill ] [ drop ] if ;