is-equal-to ( value literal -- constraint )

Vocabulary

compiler.tree.propagation.constraints

Inputs

value	an object
literal	an object

Outputs

constraint

an object

Definition

USING: compiler.tree.propagation.copy kernel ;

IN: compiler.tree.propagation.constraints

: is-equal-to ( value literal -- constraint )
    [ resolve-copy ] dip literal-constraint boa ;