<#shuffle> ( in-d out-d in-r out-r mapping -- node )

Vocabulary

compiler.tree

Inputs

in-d	an object
out-d	an object
in-r	an object
out-r	an object
mapping	an object

Outputs

node

an object

Definition

USING: accessors kernel ;

IN: compiler.tree

: <#shuffle> ( in-d out-d in-r out-r mapping -- node )
    #shuffle new swap >>mapping swap >>out-r swap >>in-r
    swap >>out-d swap >>in-d ;