Diff for /gforth/search.fs between versions 1.15 and 1.16

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.

Removed from v.1.15  
changed lines
  Added in v.1.16


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