From b656c8ef9e5f92dc749836bf8166e65fb0169ee2 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 20 Jul 2012 09:30:37 -0700
Subject: [PATCH] hashtables: Revert size of associate, but keep inlined. ~10s
 speedup on bootstrap

---
 core/hashtables/hashtables.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index d51ed90300..0244d5899c 100644
--- 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