interval-comparison ( i1 i2 op -- result )

Vocabulary

compiler.tree.comparisons

Inputs

i1	an object
i2	an object
op	an object

Outputs

result

an object

Definition

USING: combinators math math.intervals ;

IN: compiler.tree.comparisons

: interval-comparison ( i1 i2 op -- result )
    {
        { \ < [ interval< ] }
        { \ > [ interval> ] }
        { \ <= [ interval<= ] }
        { \ >= [ interval>= ] }
        { \ u< [ interval< ] }
        { \ u> [ interval> ] }
        { \ u<= [ interval<= ] }
        { \ u>= [ interval>= ] }
    } case ;