| |
|
| include ./../termsize.fs |
include ./../termsize.fs |
| |
|
| : words |
: wordlist-words ( wid -- ) \ gforth |
| \G ** this will not get annotated. See other defn in search.fs .. ** |
\G Display the contents of the wordlist wid. |
| \G It does not work to use "wordset-" prefix since this file is glossed |
wordlist-id 0 swap cr |
| \G by cross.fs which doesn't have the same functionalty as makedoc.fs |
|
| cr 0 context @ wordlist-id |
|
| BEGIN |
BEGIN |
| @ dup |
@ dup |
| WHILE |
WHILE |
| REPEAT |
REPEAT |
| 2drop ; |
2drop ; |
| |
|
| |
: words |
| |
\G ** this will not get annotated. See other defn in search.fs .. ** |
| |
\G It does not work to use "wordset-" prefix since this file is glossed |
| |
\G by cross.fs which doesn't have the same functionalty as makedoc.fs |
| |
context @ wordlist-words ; |
| |
|
| ' words alias vlist ( -- ) \ gforth |
' words alias vlist ( -- ) \ gforth |
| \g Old (pre-Forth-83) name for @code{WORDS}. |
\g Old (pre-Forth-83) name for @code{WORDS}. |