parallel-mapping ( mapping temp: ( src -- dst ) quot: ( dst src -- ) -- )

Vocabulary

compiler.cfg.parallel-copy

Inputs

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

Outputs

None

Definition

USING: compiler.cfg.parallel-copy.private deques namespaces ;

IN: compiler.cfg.parallel-copy

:: parallel-mapping
    ( mapping temp: ( src -- dst ) quot: ( dst src -- ) -- )
    [
        mapping init to-do get [
            ready get [ quot process-ready ] slurp-deque
            temp quot process-to-do
        ] slurp-deque
    ] with-scope ; inline