sets: improving the speed of set=.

2010-12-27 19:33:18 -08:00 · 2010-12-27 19:33:18 -08:00 · 7afca548dc
parent 2534bd5054
commit 7afca548dc
1 changed files with 1 additions and 1 deletions
--- 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 ;