hashtables: Revert size of associate, but keep inlined. ~10s speedup on bootstrap

2012-07-20 09:30:37 -07:00 · 2012-07-20 09:30:37 -07:00 · b656c8ef9e
parent 00056e2ea7
commit b656c8ef9e
1 changed files with 1 additions and 1 deletions
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@ -131,7 +131,7 @@ M: hashtable set-at ( value key hash -- )
    dup ?grow-hash dupd new-key@ set-nth-pair ;

 : associate ( value key -- hash )
-    H{ } clone [ set-at ] keep ; inline
+    2 <hashtable> [ set-at ] keep ; inline

 <PRIVATE