compare-classes ( first second -- <=> ) (original) (raw)
compare-classes ( first second -- <=> )
Inputs
first | an object |
---|---|
second | an object |
Outputs
<=> | an object |
---|
Definition
: compare-classes ( first second -- <=> )
[ swap class<= ] [ class<= ] 2bi
[ +eq+ +lt+ ] [ +gt+ +incomparable+ ] if ? ;