consistent? ( snode lnode -- ? )

Vocabulary

compiler.cfg.ssa.construction.tdmsc.private

Inputs

snode	an object
lnode	an object

Outputs

?

an object

Definition

USING: assocs kernel namespaces sets ;

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

: consistent? ( snode lnode -- ? )
    merge-sets get [ at ] curry bi@ subset? ;