(introduce-value) ( values escaping-values -- )


Vocabulary
compiler.tree.escape-analysis.allocations

Inputs
valuesan object
escaping-valuesan object


Outputs
None

Definition
USING: disjoint-sets kernel ;

IN: compiler.tree.escape-analysis.allocations

: (introduce-value) ( values escaping-values -- )
2dup disjoint-set-member? [ 2drop ] [ add-atom ] if ; inline