| version 1.26, Sat Sep 23 15:46:57 2000 UTC | version 1.27, Sun Jan 28 16:54:55 2001 UTC | ||
|---|---|---|---|
|
|
||
| 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 | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |