Return to hash.fs CVS log | Up to [gforth] / gforth |
version 1.26, 2000/09/23 15:46:57 | version 1.27, 2001/01/28 16:54:55 |
---|---|
Line 65 Defer hash-alloc ( addr -- addr ) | Line 65 Defer hash-alloc ( addr -- addr ) |
cells HashTable + ; | cells HashTable + ; |
: hash-find ( addr len wordlist -- nfa / false ) | : hash-find ( addr len wordlist -- nfa / false ) |
>r 2dup r> bucket @ (hashfind) ; | >r 2dup r> bucket @ (hashlfind) ; |
\ hash vocabularies 16jul94py | \ hash vocabularies 16jul94py |