(expand-#push) ( object value -- nodes )

Vocabulary

compiler.tree.tuple-unboxing

Inputs

object	an object
value	an object

Outputs

nodes

an object

Definition

USING: compiler.tree compiler.tree.escape-analysis.allocations
compiler.tree.escape-analysis.simple compiler.utilities kernel ;

IN: compiler.tree.tuple-unboxing

: (expand-#push) ( object value -- nodes )
    dup unboxed-allocation dup [
        [ object-slots ] [ drop ] [ ] tri*
        [ (expand-#push) ] 2map-flat
    ] [ drop <#push> ] if ;