hashtables: simplify <hashtable>.

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 606b819ddc086e85b7a213d03544a319b368b0eb..0b6590d131b0bb75ebfcf8c016a0f55604c1510a 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -119,7 +119,7 @@ TUPLE: hashtable
 PRIVATE>
 
 : <hashtable> ( n -- hash )
-    hashtable new [ reset-hash ] keep ; inline
+    [ 0 0 ] dip <hash-array> hashtable boa ; inline
 
 M: hashtable at*
     key@ [ 3 fixnum+fast slot t ] [ 2drop f f ] if ;