hashtables: simplify <hashtable>.

2014-01-08 09:56:00 -08:00 · 2014-01-08 09:56:00 -08:00 · 6b0e72a475
parent 8c07160aa9
commit 6b0e72a475
1 changed files with 1 additions and 1 deletions
--- 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 ;