Diff for /gforth/search.fs between versions 1.32 and 1.34

version 1.32, 2007/12/31 18:40:24 version 1.34, 2011/12/31 15:29:25
Line 1 Line 1
 \ search order wordset                                 14may93py  \ search order wordset                                 14may93py
   
 \ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2007 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2007,2011 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 228  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.32  
changed lines
  Added in v.1.34


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