swap-comparison ( op -- op' )

Vocabulary

compiler.tree.comparisons

Inputs

op

an object

Outputs

op'

an object

Definition

USING: assocs math ;

IN: compiler.tree.comparisons

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