process-ready ( b quot: ( dst src -- ) -- )

Vocabulary

compiler.cfg.parallel-copy.private

Inputs

b	an object
quot	a quotation with stack effect ( dst src -- )

Outputs

None

Definition

USING: assocs deques kernel namespaces ;

IN: compiler.cfg.parallel-copy.private

:: process-ready ( b quot: ( dst src -- ) -- )
    b preds get at :> a a locs get at :> c b c quot call
    b a locs get set-at a c = a preds get at and
    [ a ready get push-front ] when ; inline