(flatten-values) ( values accum -- )

Vocabulary

compiler.tree.tuple-unboxing

Inputs

values	an object
accum	an object

Outputs

None

Definition

USING: compiler.tree.escape-analysis.allocations kernel
sequences ;

IN: compiler.tree.tuple-unboxing

: (flatten-values) ( values accum -- )
    dup [ [ (flatten-values) ] curry ] dip [ push ] curry
    [ [ [ [ unboxed-allocation ] ] ] dip ] dip [ ?if ] 2curry
    compose each ;