for retro-unix, now d:rehash after adding names

FossilOrigin-Name: 4d5be87a060e5c1352688825a1b9786f22ec2d456efee5718575e7153d9e864f
This commit is contained in:
crc 2022-07-19 17:04:03 +00:00
parent 41fe99682b
commit 2bec65627c
3 changed files with 556 additions and 509 deletions

View file

@ -294,5 +294,7 @@ dup 'EOM d:lookup d:source store
dup 's:store d:lookup d:source store
dup 's:fetch d:lookup d:source store
dup 'sigil:' d:lookup d:source store
dup 'd:rehash d:lookup d:source store
dup 'd:Hash-Function d:lookup d:source store
drop
~~~

View file

@ -17,7 +17,7 @@ data for words, and record this as part of the header.
[ script:current-file known? [ index ] [ record ] choose
[ &d:add-header #2 + call ] dip
d:last d:source store ] &d:add-header set-hook
d:last d:source store d:rehash ] &d:add-header set-hook
}}
~~~

File diff suppressed because it is too large Load diff