eliminate-phi ( #phi -- node )


Vocabulary
compiler.tree.cleanup

Inputs
#phian object


Outputs
nodean object


Definition
USING: accessors combinators kernel namespaces sequences ;

IN: compiler.tree.cleanup

: eliminate-phi ( #phi -- node )
live-branches get sift length {
{ 0 [ out-d>> output-fs ] }
{ 1 [ eliminate-single-phi ] }
[ drop ]
} case ;