hashtables: reduce default size of associate.
parent
f05954c5a9
commit
8b2ae0a717
|
@ -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 ; inline
|
1 <hashtable> [ set-at ] keep ; inline
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue