compose-data-shuffles ( first second -- node )

Vocabulary

compiler.tree.debugger.private

Inputs

first	an object
second	an object

Outputs

node

an object

Definition

USING: accessors assocs compiler.tree math math.order sequences
;

IN: compiler.tree.debugger.private

:: compose-data-shuffles ( first second -- node )
    second in-d>> length :> consumed second in-d>> consumed
    first out-d>> length - 0 max head
    :> prefix prefix first out-d>> append
    :> stack second in-d>> stack consumed tail* zip
    :> inputs second mapping>> [
        inputs resolve-shuffle-value
        first mapping>> resolve-shuffle-value
    ] assoc-map :> mapping stack consumed head*
    second out-d>> append :> outputs prefix first in-d>> append
    outputs outputs first mapping>> mapping assoc-union
    extract-keys <#data-shuffle> ;