drop-call-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-call-recursive-inputs ( node -- #shuffle )
    dup [ in-d>> ] [ label>> enter-out>> ] bi drop-dead-inputs
    [ out-d>> >>in-d drop ] [ nip ] 2bi ;