specific-comparison ( op -- op' )

Vocabulary

compiler.tree.comparisons

Inputs

op

an object

Outputs

op'

an object

Definition

USING: assocs math math.order ;

IN: compiler.tree.comparisons

: specific-comparison ( op -- op' )
    {
        { before? < }
        { after? > }
        { before=? <= }
        { after=? >= }
    } at ;