update-merge-set ( tmp to -- )

Vocabulary

compiler.cfg.ssa.construction.tdmsc.private

Inputs

tmp	an object
to	an object

Outputs

None

Definition

USING: accessors assocs kernel namespaces sets ;

IN: compiler.cfg.ssa.construction.tdmsc.private

: update-merge-set ( tmp to -- )
    [ merge-sets get ] dip over [ at union ] curry
    [ [ number>> over adjoin ] bi ] 2curry change-at ;