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

db4
John Benediktsson 2012-07-20 09:04:21 -07:00
parent 9d5530f3e4
commit 00056e2ea7
1 changed files with 1 additions and 1 deletions
core/hashtables

View File

@ -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