gforth/search.fs - diff

Return to search.fs CVS log

Up to [gforth] / gforth

version 1.25, 2003/03/09 15:16:52	version 1.26, 2005/10/02 11:30:32
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{???}.