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 |