7 lines
126 B
Forth
7 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
|
|
~~~
|