crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
interface/sources.retro
View file

@ -294,5 +294,7 @@ dup 'EOM d:lookup d:source store
dup 's:store d:lookup d:source store dup 's:store d:lookup d:source store
dup 's:fetch d:lookup d:source store dup 's:fetch d:lookup d:source store
dup 'sigil:' 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 drop
~~~ ~~~

2
package/list.forth
View file

@ -17,7 +17,7 @@ data for words, and record this as part of the header.
[ script:current-file known? [ index ] [ record ] choose [ script:current-file known? [ index ] [ record ] choose
[ &d:add-header #2 + call ] dip [ &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
}} }}
~~~ ~~~

1061
vm/nga-c/image.c
View file

File diff suppressed because it is too large Load diff