version 1.4, 1998/05/02 21:28:43
|
version 1.5, 1998/10/10 10:28:35
|
Line 38 Variable slowvoc 0 slowvoc !
|
Line 38 Variable slowvoc 0 slowvoc !
|
|
|
: mappedwordlist ( map-struct -- wid ) \ gforth |
: mappedwordlist ( map-struct -- wid ) \ gforth |
\G creates a wordlist with a special map-structure |
\G creates a wordlist with a special map-structure |
here 0 A, swap A, voclink @ A, 0 A, |
here swap A, 0 A, voclink @ A, 0 A, |
dup wordlist-link voclink ! |
dup wordlist-link voclink ! |
dup initvoc ; |
dup initvoc ; |
|
|
Line 109 Vocabulary Root
|
Line 109 Vocabulary Root
|
|
|
\ set initial search order 14may93py |
\ set initial search order 14may93py |
|
|
Forth-wordlist @ ' Forth >body ! |
Forth-wordlist wordlist-id @ ' Forth >body wordlist-id ! |
|
|
0 vp! also Root also definitions |
0 vp! also Root also definitions |
Only Forth also definitions |
Only Forth also definitions |