Return to hash.fs CVS log | Up to [gforth] / gforth |
version 1.23, 1998/12/19 13:43:17 | version 1.24, 2000/04/02 21:48:54 |
---|---|
Line 97 Defer hash-alloc ( addr -- addr ) | Line 97 Defer hash-alloc ( addr -- addr ) |
voclink | voclink |
BEGIN @ dup WHILE | BEGIN @ dup WHILE |
dup 0 wordlist-link - | dup 0 wordlist-link - |
dup wordlist-map @ hashsearch-map = | dup wordlist-map @ reveal-method @ ['] hash-reveal = |
IF inithash ELSE drop THEN | IF inithash ELSE drop THEN |
REPEAT drop ; | REPEAT drop ; |