compare-classes ( first second -- <=> ) (original) (raw)

compare-classes ( first second -- <=> )

Vocabulary
classes.algebra

Inputs

first	an object
second	an object

Outputs

<=>	an object

Definition

USING: kernel math.order ;

IN: classes.algebra

: compare-classes ( first second -- <=> )
[ swap class<= ] [ class<= ] 2bi
[ +eq+ +lt+ ] [ +gt+ +incomparable+ ] if ? ;