(fulfill) ( value promise: promise -- )

Vocabulary

concurrency.promises.private

Inputs

value	an object
promise	a promise

Outputs

None

Definition

USING: accessors boxes concurrency.conditions
concurrency.promises kernel typed ;

IN: concurrency.promises.private

TYPED: (fulfill) ( value promise: promise -- )
    [ box>> ] keep over occupied>>
    [ promise-already-fulfilled ]
    [ [ >box ] [ threads>> notify-all ] bi* ] if ;