| version 1.1, Wed May 21 20:40:18 1997 UTC | version 1.2, Sun Jul 6 15:56:17 1997 UTC | ||
|---|---|---|---|
|
|
||
| : ? @ . ; | : ? @ . ; | ||
| \ INCLUDE see.fs | \ words visible in roots 14may93py | ||
| include termsize.fs | |||
| : words ( -- ) \ tools | |||
| cr 0 context @ | |||
| BEGIN | |||
| @ dup | |||
| WHILE | |||
| 2dup head>string nip 2 + dup >r + | |||
| cols >= | |||
| IF | |||
| cr nip 0 swap | |||
| THEN | |||
| dup head>string type space r> rot + swap | |||
| REPEAT | |||
| 2drop ; | |||
| ' words alias vlist ( -- ) \ gforth | |||
| \g Old (pre-Forth-83) name for @code{WORDS}. | |||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |