From 67912db5f1041a254b1a299a7366b8f3dba03b93 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-122.local>
Date: Wed, 17 Mar 2010 20:12:25 -0400
Subject: [PATCH] Making <hash-set> faster

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

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 248b4af4c6..b4bf9a1aef 100644
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -9,7 +9,7 @@ IN: hash-sets
 TUPLE: hash-set { table hashtable read-only } ;
 
 : <hash-set> ( members -- hash-set )
-    [ dup ] H{ } map>assoc hash-set boa ;
+    H{ } clone [ [ dupd set-at ] curry each ] keep hash-set boa ;
 
 INSTANCE: hash-set set
 M: hash-set in? table>> key? ; inline