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 ? ;