[BACK]Return to search.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/search.fs between versions 1.24 and 1.26

version 1.24, 2003/03/08 13:29:55 version 1.26, 2005/10/02 11:30:32
Line 1 Line 1
 \ search order wordset                                 14may93py  \ search order wordset                                 14may93py
   
 \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 211  lookup ! \ our dictionary search order b Line 211  lookup ! \ our dictionary search order b
   context @ 1 set-order ;    context @ 1 set-order ;
   
 [IFUNDEF] .name  [IFUNDEF] .name
 : id. ( nt -- ) \ gforth  : id. ( nt -- ) \ gforth  i-d-dot
     \G Print the name of the word represented by @var{nt}.      \G Print the name of the word represented by @var{nt}.
     \ this name comes from fig-Forth      \ this name comes from fig-Forth
     name>string type space ;      name>string type space ;
   
 ' id. alias .id ( nt -- )  ' id. alias .id ( nt -- ) \ F83  dot-i-d
 \G F83 name for @code{id.}.  \G F83 name for @code{id.}.
   
 ' id. alias .name ( nt -- )  ' id. alias .name ( nt -- ) \ gforth-obsolete  dot-name
 \G Gforth <=0.5.0 name for @code{id.}.  \G Gforth <=0.5.0 name for @code{id.}.
   
 [THEN]  [THEN]
   
 : .voc ( wid -- ) \ gforth  : .voc ( wid -- ) \ gforth  dot-voc
 \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{???}.
Removed from v.1.24  
changed lines
  Added in v.1.26

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