hash-sets: simplify <hash-set>.

2014-01-08 09:55:45 -08:00 · 2014-01-08 09:55:45 -08:00 · 8c07160aa9
parent 63514bbbf8
commit 8c07160aa9
1 changed files with 1 additions and 1 deletions
--- 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 ;