steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes.algebra: remove class<=> -- it's never used and has incorrect semantics

db4
Slava Pestov 2010-02-10 15:04:48 +13:00
parent 646a88fbf2
commit 83410e23cc
2 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/classes/algebra/algebra-tests.factor
View File

@ -211,12 +211,6 @@ MIXIN: empty-mixin
[ f ] [ null class-not null class= ] unit-test
! class<=>
[ +lt+ ] [ sequence object class<=> ] unit-test
[ +gt+ ] [ object sequence class<=> ] unit-test
[ +eq+ ] [ integer integer class<=> ] unit-test
! smallest-class etc
[ real ] [ { real sequence } smallest-class ] unit-test
[ real ] [ { sequence real } smallest-class ] unit-test

7
core/classes/algebra/algebra.factor
View File

@ -57,13 +57,6 @@ M: anonymous-complement classoid? class>> classoid? ;
[ [ rank-class ] bi@ < ]
} cond ;
: class<=> ( first second -- ? )
{
{ [ 2dup class<= not ] [ 2drop +gt+ ] }
{ [ 2dup swap class<= not ] [ 2drop +lt+ ] }
[ [ rank-class ] bi@ <=> ]
} cond ;
: class= ( first second -- ? )
[ class<= ] [ swap class<= ] 2bi and ;