Diff for /gforth/search.fs between versions 1.30 and 1.33

version 1.30, 2007/10/22 20:11:43 version 1.33, 2011/11/17 17:52:14
Line 1 Line 1
 \ search order wordset                                 14may93py  \ search order wordset                                 14may93py
   
 \ Copyright (C) 1995,1996,1997,1998,2000,2003,2005 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 Line 15
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  
   
 require struct.fs  require struct.fs
   
Line 229  lookup ! \ our dictionary search order b Line 228  lookup ! \ our dictionary search order b
 \G print the name of the wordlist represented by @var{wid}.  Can  \G print the name of the wordlist represented by @var{wid}.  Can
 \G only print names defined with @code{vocabulary} or  \G only print names defined with @code{vocabulary} or
 \G @code{wordlist constant}, otherwise prints @samp{???}.  \G @code{wordlist constant}, otherwise prints @samp{???}.
     dup >r wordlist-struct %size + dup head? if ( wid nt )      dup >r wordlist-struct %size + dup head? true = if ( wid nt )
         dup name>int dup >code-address docon: = swap >body @ r@ = and if          dup name>int dup >code-address docon: = swap >body @ r@ = and if
             id. rdrop exit              id. rdrop exit
         endif          endif

Removed from v.1.30  
changed lines
  Added in v.1.33


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