compare-endpoints ( p1 p2 quot -- ? )

Vocabulary

math.intervals

Inputs

p1	an object
p2	an object
quot	an object

Outputs

?

an object

Definition

USING: kernel math sequences ;

IN: math.intervals

: compare-endpoints ( p1 p2 quot -- ? )
    [ 2dup [ first ] bi@ 2dup ] dip call
    [ 4drop t ]
    [ number= [ [ second ] bi@ not or ] [ 2drop f ] if ] if ;
    inline