From 7afca548dc207e1bb7e170eb33f721c0bb4033c1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 27 Dec 2010 19:33:18 -0800
Subject: [PATCH] sets: improving the speed of set=.

---
 core/sets/sets.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index ae15908e4c..a73515ca91 100644
--- 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 ;