8 lines
126 B
Forth
8 lines
126 B
Forth
|
~~~
|
||
|
|
[ &d:add-header #2 + call
|
||
|
|
d:last d:name @d:Hash-Function call d:last d:hash store
|
||
|
|
] &d:add-heaer set-hook
|
||
|
|
|
||
|
|
d:rehash
|
||
|
|
~~~
|