![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tools.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to tools.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.19, 2003/08/25 14:17:54 | version 1.20, 2006/02/26 17:23:47 |
|---|---|
| Line 83 include ./../termsize.fs | Line 83 include ./../termsize.fs |
| : wordlist-words ( wid -- ) \ gforth | : wordlist-words ( wid -- ) \ gforth |
| \G Display the contents of the wordlist wid. | \G Display the contents of the wordlist wid. |
| wordlist-id 0 swap cr | [ has? ec 0= [IF] ] wordlist-id [ [THEN] ] |
| 0 swap cr | |
| BEGIN | BEGIN |
| @ dup | @ dup |
| WHILE | WHILE |