drop-call-recursive-outputs ( 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-call-recursive-outputs ( node -- #shuffle )
    dup [ label>> return>> in-d>> ] [ out-d>> ] bi
    (drop-call-recursive-outputs) [ in-d>> >>out-d drop ] keep ;