Diff for /gforth/search.fs between versions 1.20 and 1.23

version 1.20, 2002/01/05 22:58:59 version 1.23, 2003/02/06 16:49:17
Line 149  Vocabulary Root ( -- ) \ gforth Line 149  Vocabulary Root ( -- ) \ gforth
   \G order (for Gforth, this is the word list @code{Root}).    \G order (for Gforth, this is the word list @code{Root}).
   1 vp! Root also ;    1 vp! Root also ;
   
   : update-image-order ( -- )
       \ save search order here, let vp point there
       here vp over vp @ 1+ cells
       dup allot move
       to vp ;
   
 : init-vp  ( -- )  : init-vp  ( -- )
    $10 TO maxvp      vp @ $10 max to maxvp
    maxvp 1+ cells allocate throw TO vp      maxvp 1+ cells allocate throw
    Only Forth also definitions ;      vp over vp @ 1+ cells move
       TO vp ;
   
 :noname  :noname
    init-vp DEFERS 'cold ;     init-vp DEFERS 'cold ;
 IS 'cold  IS 'cold
   
 init-vp  here 0 , to vp
   
   init-vp Only Forth also definitions
   
 \ set initial search order                             14may93py  \ set initial search order                             14may93py
   

Removed from v.1.20  
changed lines
  Added in v.1.23


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