version 1.15, 2000/08/16 09:26:52
|
version 1.16, 2000/08/23 21:03:52
|
Line 73 Variable slowvoc 0 slowvoc !
|
Line 73 Variable slowvoc 0 slowvoc !
|
: check-maxvp ( n -- ) |
: check-maxvp ( n -- ) |
maxvp > -49 and throw ; |
maxvp > -49 and throw ; |
|
|
: push-order ( wid -- ) \ gforth |
: >order ( wid -- ) \ gforth to-order |
\g Push @var{wid} on the search order. |
\g Push @var{wid} on the search order. |
vp @ 1+ dup check-maxvp vp! context ! ; |
vp @ 1+ dup check-maxvp vp! context ! ; |
|
|
Line 81 Variable slowvoc 0 slowvoc !
|
Line 81 Variable slowvoc 0 slowvoc !
|
\G Like @code{DUP} for the search order. Usually used before a |
\G Like @code{DUP} for the search order. Usually used before a |
\G vocabulary (e.g., @code{also Forth}); the combined effect is to push |
\G vocabulary (e.g., @code{also Forth}); the combined effect is to push |
\G the wordlist represented by the vocabulary on the search order. |
\G the wordlist represented by the vocabulary on the search order. |
context @ push-order ; |
context @ >order ; |
|
|
: previous ( -- ) \ search-ext |
: previous ( -- ) \ search-ext |
\G Drop the wordlist at the top of the search order. |
\G Drop the wordlist at the top of the search order. |