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

2012-07-20 09:04:21 -07:00 · 2012-07-20 09:04:21 -07:00 · 00056e2ea7
parent 9d5530f3e4
commit 00056e2ea7
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 )
-    2 <hashtable> [ set-at ] keep ;
+    H{ } clone [ set-at ] keep ; inline

 <PRIVATE