gforth/search.fs - diff

Return to search.fs CVS log

Up to [gforth] / gforth

version 1.32, 2007/12/31 18:40:24	version 1.33, 2011/11/17 17:52:14
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