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
|
|
~~~
|