(interval<) ( i1 i2 -- i1 i2 ? )

Vocabulary

math.intervals

Inputs

i1	an object
i2	an object

Outputs

i1	an object
i2	an object
?	an object

Definition

USING: accessors kernel ;

IN: math.intervals

: (interval<) ( i1 i2 -- i1 i2 ? )
    2dup [ from>> ] bi@ endpoint< ;