delete-unreachable-branches ( #branch -- )

Vocabulary

compiler.tree.cleanup

Inputs

#branch

an object

Outputs

None

Definition

USING: accessors compiler.tree.combinators kernel sequences ;

IN: compiler.tree.cleanup

: delete-unreachable-branches ( #branch -- )
    dup live-branches>> [
        [ [ [ drop ] [ delete-nodes ] if ] 2each ]
        [ select-children ] 2bi
    ] curry change-children drop ;