version 1.10, 1999/05/22 20:03:53
|
version 1.11, 1999/10/30 15:48:16
|
Line 31 Variable vp
|
Line 31 Variable vp
|
\G Set the compilation word list to the word list identified by @var{wid}. |
\G Set the compilation word list to the word list identified by @var{wid}. |
current ! ; |
current ! ; |
|
|
\ : context ( -- addr ) vp dup @ cells + ; |
:noname ( -- addr ) |
: vp! dup vp ! cells vp + to context ; |
vp dup @ cells + ; |
|
is context |
|
|
|
: vp! ( u -- ) |
|
vp ! ; |
: definitions ( -- ) \ search |
: definitions ( -- ) \ search |
\G Make the compilation word list the same as the word list |
\G Make the compilation word list the same as the word list |
\G that is currently at the top of the search order stack. |
\G that is currently at the top of the search order stack. |
Line 78 Variable slowvoc 0 slowvoc !
|
Line 82 Variable slowvoc 0 slowvoc !
|
context @ push-order ; |
context @ push-order ; |
|
|
: previous ( -- ) \ search ext |
: previous ( -- ) \ search ext |
\G Perform a @code{DROP} on the search order stack, thereby removing the wid at the |
\G Perform a @code{DROP} on the search order stack, thereby removing |
\G top of the (search order) stack from the search order. |
\G the wid at the top of the (search order) stack from the search |
|
\G order. |
vp @ 1- dup 0= -50 and throw vp! ; |
vp @ 1- dup 0= -50 and throw vp! ; |
|
|
\ vocabulary find 14may93py |
\ vocabulary find 14may93py |