unbox-hairy-introduce ( #introduce -- nodes )

Vocabulary

compiler.tree.tuple-unboxing

Inputs

#introduce

an object

Outputs

nodes

an object

Definition

USING: accessors compiler.tree.propagation kernel sequences ;

IN: compiler.tree.tuple-unboxing

: unbox-hairy-introduce ( #introduce -- nodes )
    dup out-d>> new-and-old-values
    [ drop >>out-d ] [ unbox-parameters-nodes ] 2bi swap prefix
    propagate ;