hashtables: use H{ } clone in associate, make it inline.

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 7d0f4b85ffaa2af545e00a6ecb8df3ef98dc6e81..d51ed90300457c3f4406ec52877a1782b441353b 100644 (file)
--- 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 )
-    2 <hashtable> [ set-at ] keep ;
+    H{ } clone [ set-at ] keep ; inline
 
 <PRIVATE