merge-sets ( blue red -- seq )

Vocabulary

compiler.cfg.ssa.interference.private

Inputs

blue	an object
red	an object

Outputs

seq

an object

Definition

USING: accessors kernel sequences ;

IN: compiler.cfg.ssa.interference.private

: merge-sets ( blue red -- seq )
    [ <iterator> ] bi@
    [ 2dup [ done? ] both? not ] [
        2dup take-blue?
        [ over take blue >>color ] [ dup take red >>color ] if
    ] produce 2nip ;