drop-recursive-outputs ( node -- shuffle )

Vocabulary

compiler.tree.dead-code.recursive

Inputs

node

an object

Outputs

shuffle

an object

Definition

USING: accessors compiler.tree.dead-code.simple kernel ;

IN: compiler.tree.dead-code.recursive

:: drop-recursive-outputs ( node -- shuffle )
    node label>> return>> :> return return in-d>> filter-live
    :> new-inputs return [ in-d>> ] [ out-d>> ] bi
    filter-corresponding :> new-outputs return
    [ new-inputs >>in-d new-outputs >>out-d drop ]
    [ drop-dead-outputs ] bi ;