sets: use = instead of eq? in M\ set set=.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 8fc421045537ed02458724875ddc7b2df65cfa2a..9000bdd926c56d69b18d0b6f16bcc5d82177da19 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -41,7 +41,7 @@ M: set ?adjoin 2dup in? [ 2drop f ] [ adjoin t ] if ;
 
 M: set ?delete 2dup in? [ delete t ] [ 2drop f ] if ;
 
-M: set null? cardinality zero? ; inline
+M: set null? cardinality 0 = ; inline
 
 M: set cardinality members length ;
 
@@ -98,7 +98,7 @@ M: set subset?
     2dup [ cardinality ] bi@ > [ 2drop f ] [ (subset?) ] if ;
 
 M: set set=
-    2dup [ cardinality ] bi@ eq? [ (subset?) ] [ 2drop f ] if ;
+    2dup [ cardinality ] bi@ = [ (subset?) ] [ 2drop f ] if ;
 
 M: set fast-set ;