mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
7 lines
140 B
Forth
7 lines
140 B
Forth
~~~
|
|
[ &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
|
|
~~~
|