hashtables: use H{ } clone in associate, make it inline.
parent
9d5530f3e4
commit
00056e2ea7
|
@ -131,7 +131,7 @@ M: hashtable set-at ( value key hash -- )
|
||||||
dup ?grow-hash dupd new-key@ set-nth-pair ;
|
dup ?grow-hash dupd new-key@ set-nth-pair ;
|
||||||
|
|
||||||
: associate ( value key -- hash )
|
: associate ( value key -- hash )
|
||||||
2 <hashtable> [ set-at ] keep ;
|
H{ } clone [ set-at ] keep ; inline
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue