retroforth/interface/final.retro

~~~
[ &d:add-header #2 + call
  d:last d:name @d:Hash-Function call d:last d:hash store
] &d:add-header set-hook

d:rehash d:use-hashes
~~~
now start recording hashes of names FossilOrigin-Name: 423a52eb748632e7b65ae6131ee9544410c35b4a20706b1d384ee4e908bdabc1 2023-02-05 17:38:04 +01:00			`~~~`
			`[ &d:add-header #2 + call`
			`d:last d:name @d:Hash-Function call d:last d:hash store`
switch to using hashed dictionary search by default FossilOrigin-Name: 4d5ea504e6fe509fc59d77050a2029cfd6643f25b18d734f374fb0b31f4ba01d 2023-03-29 04:45:43 +02:00			`] &d:add-header set-hook`
now start recording hashes of names FossilOrigin-Name: 423a52eb748632e7b65ae6131ee9544410c35b4a20706b1d384ee4e908bdabc1 2023-02-05 17:38:04 +01:00
switch to using hashed dictionary search by default FossilOrigin-Name: 4d5ea504e6fe509fc59d77050a2029cfd6643f25b18d734f374fb0b31f4ba01d 2023-03-29 04:45:43 +02:00			`d:rehash d:use-hashes`
now start recording hashes of names FossilOrigin-Name: 423a52eb748632e7b65ae6131ee9544410c35b4a20706b1d384ee4e908bdabc1 2023-02-05 17:38:04 +01:00			`~~~`