sets: minor optimization.

2011-01-03 20:36:48 -08:00 · 2011-01-03 20:36:48 -08:00 · 27d90dc181
parent 169c666101
commit 27d90dc181
1 changed files with 1 additions and 1 deletions
--- 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 ;