sets: improving the speed of set=.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index ae15908e4cb594aed40ae53e3122bff54322ce3a..a73515ca910e65a4db1542fa2374a16a962d9b33 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -61,7 +61,7 @@ M: set subset?
     sequence/tester all? ;
 
 M: set set=
-    2dup subset? [ swap subset? ] [ 2drop f ] if ;
+    2dup [ cardinality ] bi@ = [ subset? ] [ 2drop f ] if ;
 
 M: set fast-set ;