hashtables: Revert size of associate, but keep inlined. ~10s speedup on bootstrap
parent
00056e2ea7
commit
b656c8ef9e
|
@ -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 )
|
||||||
H{ } clone [ set-at ] keep ; inline
|
2 <hashtable> [ set-at ] keep ; inline
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue