sets: minor optimization.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 904d0d95d78f04ace224504cc7e7e68cf169441e..06f6e04655417689af351b0194c2dbfe6635f173 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -64,7 +64,7 @@ M: set subset?
     small/large sequence/tester all? ;
 
 M: set set=
-    2dup [ cardinality ] bi@ = [ subset? ] [ 2drop f ] if ;
+    2dup [ cardinality ] bi@ eq? [ subset? ] [ 2drop f ] if ;
 
 M: set fast-set ;