|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hash.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth