version 1.4, 1998/05/02 21:28:43
|
version 1.6, 1998/12/08 22:02:51
|
Line 1
|
Line 1
|
\ search order wordset 14may93py |
\ search order wordset 14may93py |
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 |