(real<=>) ( x y -- <=> )

Vocabulary

math.order.private

Inputs

x	an object
y	an object

Outputs

<=>

an object

Definition

USING: kernel math math.order ;

IN: math.order.private

: (real<=>) ( x y -- <=> )
    2dup < [ 2drop +lt+ ] [ number= +eq+ +gt+ ? ] if ; inline