[gforth] / gforth / kernel / tools.fs  

gforth: gforth/kernel/tools.fs

Diff for /gforth/kernel/tools.fs between version 1.1 and 1.2

version 1.1, Wed May 21 20:40:18 1997 UTC version 1.2, Sun Jul 6 15:56:17 1997 UTC
Line 65 
Line 65 
   
 : ? @ . ;  : ? @ . ;
   
 \ 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}.
   


Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help