Return to tools.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.1, 1997/05/21 20:40:18 | version 1.2, 1997/07/06 15:56:17 |
---|---|
Line 65 Variable /dump | Line 65 Variable /dump |
: ? @ . ; | : ? @ . ; |
\ 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}. | |