hash-sets: simplify <hash-set>.

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index a00fe06278c1b78f65a569799aa58a6c714b6392..178ccf11eadf5fcd58d4a5e102e978c76e5e1688 100644 (file)
--- 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 ;