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

version 1.21, 2003/01/19 23:35:30 version 1.23, 2003/02/06 16:49:17
Line 1 Line 1
 \ search order wordset                                 14may93py  \ search order wordset                                 14may93py
   
 \ Copyright (C) 1995-2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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.21  
changed lines
  Added in v.1.23


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