hashtables: reduce default size of associate.

db4
John Benediktsson 2012-08-02 21:43:37 -07:00
parent f05954c5a9
commit 8b2ae0a717
1 changed files with 1 additions and 1 deletions

View File

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