(drop-call-recursive-outputs) ( inputs outputs -- #shuffle )


Vocabulary
compiler.tree.dead-code.recursive

Inputs
inputsan object
outputsan object


Outputs
#shufflean object


Definition
USING: compiler.tree.dead-code.simple sequences
stack-checker.backend ;

IN: compiler.tree.dead-code.recursive

:: (drop-call-recursive-outputs)
( inputs outputs -- #shuffle )
inputs outputs filter-corresponding
length make-values :> new-live-outputs outputs filter-live
:> live-outputs new-live-outputs live-outputs live-outputs
new-live-outputs drop-values ;