endpoint= ( p1 p2 -- ? )

Vocabulary

math.intervals

Inputs

p1	an object
p2	an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: math.intervals

: endpoint= ( p1 p2 -- ? )
    { [ [ first ] bi@ number= ] [ [ second ] bi@ eq? ] } 2&& ;