Handbook Glossary
factorcode.org
(real<=>) ( x y -- <=> )


Vocabulary
math.order.private

Inputs
xan object
yan 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