recursive-stacks ( #enter-recursive -- stacks initial )

Vocabulary

compiler.tree.propagation.recursive

Inputs

#enter-recursive

an object

Outputs

stacks	an object
initial	an object

Definition

USING: accessors compiler.tree.propagation.info kernel sequences
;

IN: compiler.tree.propagation.recursive

: recursive-stacks ( #enter-recursive -- stacks initial )
    [ label>> calls>> [ node>> node-input-infos ] map flip ]
    [ latest-input-infos ] bi ;