negate-comparison ( op -- op' )

Vocabulary

compiler.tree.comparisons

Inputs

op

an object

Outputs

op'

an object

Definition

USING: assocs math ;

IN: compiler.tree.comparisons

: negate-comparison ( op -- op' )
    {
        { < >= }
        { > <= }
        { <= > }
        { >= < }
        { u< u>= }
        { u> u<= }
        { u<= u> }
        { u>= u< }
    } at ;