insert-drops ( nodes values indices -- nodes' )

Vocabulary

compiler.tree.dead-code.branches

Inputs

nodes	an object
values	an object
indices	an object

Outputs

nodes'

an object

Definition

USING: compiler.tree kernel sequences ;

IN: compiler.tree.dead-code.branches

: insert-drops ( nodes values indices -- nodes' )
    [ drop-indexed-values suffix ] curry
    [ [ over ends-with-terminate? [ drop ] ] ] dip [ if ] curry
    compose 2map ;