drop-indexed-values ( values indices -- node )


Vocabulary
compiler.tree.dead-code.branches

Inputs
valuesan object
indicesan object


Outputs
nodean object


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

IN: compiler.tree.dead-code.branches

: drop-indexed-values ( values indices -- node )
[ drop filter-live ] [ swap nths ] 2bi
[ length make-values ] keep [ drop ] [ zip ] 2bi
<#data-shuffle> ;