Diff for /gforth/search.fs between versions 1.10 and 1.11

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

Removed from v.1.10  
changed lines
  Added in v.1.11


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>