drop-recursive-inputs ( node -- shuffle )

Vocabulary

compiler.tree.dead-code.recursive

Inputs

node

an object

Outputs

shuffle

an object

Definition

USING: accessors kernel ;

IN: compiler.tree.dead-code.recursive

:: drop-recursive-inputs ( node -- shuffle )
    node [ in-d>> ] [ label>> enter-out>> ] bi drop-dead-inputs
    :> shuffle shuffle out-d>> :> new-outputs node new-outputs
    [ [ label>> enter-recursive>> ] dip >>in-d drop ]
    [ >>in-d drop ] 2bi shuffle ;