From 00056e2ea7ba07140cd84a058c7ddf7658acd4fa Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 20 Jul 2012 09:04:21 -0700
Subject: [PATCH] hashtables: use H{ } clone in associate, make it inline.
---
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 7d0f4b85ff..d51ed90300 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 )
- 2 <hashtable> [ set-at ] keep ;
+ H{ } clone [ set-at ] keep ; inline
<PRIVATE