From a23c8a3711df966b23ae03aa3778e7aaa52fc833 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 3 Jan 2011 20:36:48 -0800
Subject: [PATCH] sets: minor optimization.

---
 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 904d0d95d7..06f6e04655 100644
--- 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 ;