From 83410e23cc5f3536ba32934bee4ea60f0736a3ee Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 10 Feb 2010 15:04:48 +1300 Subject: [PATCH] classes.algebra: remove class<=> -- it's never used and has incorrect semantics --- core/classes/algebra/algebra-tests.factor | 6 ------ core/classes/algebra/algebra.factor | 7 ------- 2 files changed, 13 deletions(-) diff --git a/core/classes/algebra/algebra-tests.factor b/core/classes/algebra/algebra-tests.factor index c12861de9b..1086b9470b 100644 --- a/core/classes/algebra/algebra-tests.factor +++ b/core/classes/algebra/algebra-tests.factor @@ -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 diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor index 543a2f7420..69289600e4 100644 --- a/core/classes/algebra/algebra.factor +++ b/core/classes/algebra/algebra.factor @@ -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 ;