From 8c07160aa9865973304042bff38ec45b937a679d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 8 Jan 2014 09:55:45 -0800
Subject: [PATCH] hash-sets: simplify <hash-set>.

---
 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 a00fe06278..178ccf11ea 100644
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -87,7 +87,7 @@ TUPLE: hash-set
 PRIVATE>
 
 : <hash-set> ( capacity -- hash-set )
-    hash-set new [ reset-hash ] keep ; inline
+    [ 0 0 ] dip <hash-array> hash-set boa ; inline
 
 M: hash-set in?
      key@ 2nip ;