version 1.27, 2005/12/31 15:46:10
|
version 1.28, 2007/01/14 22:19:35
|
Line 51 Variable slowvoc 0 slowvoc !
|
Line 51 Variable slowvoc 0 slowvoc !
|
|
|
: mappedwordlist ( map-struct -- wid ) \ gforth |
: mappedwordlist ( map-struct -- wid ) \ gforth |
\G Create a wordlist with a special map-structure. |
\G Create a wordlist with a special map-structure. |
here swap A, 0 A, voclink @ A, 0 A, |
align here swap A, 0 A, voclink @ A, 0 A, |
dup wordlist-link voclink ! |
dup wordlist-link voclink ! |
dup initvoc ; |
dup initvoc ; |
|
|