find-parent ( dom current -- vreg )

Vocabulary

compiler.cfg.ssa.interference.private

Inputs

dom	an object
current	an object

Outputs

vreg

an object

Definition

USING: kernel sequences ;

IN: compiler.cfg.ssa.interference.private

: find-parent ( dom current -- vreg )
    over empty?
    [ 2drop f ] [
        over last over vreg-dominates?
        [ drop last ] [ over pop* find-parent ] if
    ] if ;