spawn-stage ( quot count-down -- )

Vocabulary

concurrency.count-downs

Inputs

quot	an object
count-down	an object

Outputs

None

Definition

USING: accessors concurrency.mailboxes kernel ;

IN: concurrency.count-downs

: spawn-stage ( quot count-down -- )
    [ [ count-down ] curry compose ] keep
    "Count down stage" swap promise>> mailbox>> spawn-linked-to
    drop ;