hashtables: use H{ } clone in associate, make it inline.
parent
9d5530f3e4
commit
00056e2ea7
core/hashtables
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue