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

Vocabulary

compiler.tree.dead-code.branches

Inputs

values	an object
indices	an object

Outputs

node

an 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> ;