version 1.13, 1996/05/09 18:12:59
|
version 1.14, 1996/05/13 16:36:58
|
Line 59 Variable HashIndex
|
Line 59 Variable HashIndex
|
: lastlink! ( addr link -- ) |
: lastlink! ( addr link -- ) |
BEGIN dup @ dup WHILE nip REPEAT drop ! ; |
BEGIN dup @ dup WHILE nip REPEAT drop ! ; |
|
|
: (reveal ( addr voc -- ) |
: (reveal ( nfa wid -- ) |
dup wordlist-extend @ 0< |
dup wordlist-extend @ 0< |
IF |
IF |
2drop EXIT |
2drop EXIT |
Line 74 Variable HashIndex
|
Line 74 Variable HashIndex
|
THEN |
THEN |
revealed on ; |
revealed on ; |
|
|
: hash-reveal ( -- ) |
: hash-reveal ( nfa wid -- ) |
(reveal) last? |
2dup (reveal) (reveal ; |
IF |
|
current @ (reveal |
|
THEN ; |
|
|
|
: addall ( -- ) |
: addall ( -- ) |
voclink |
voclink |