[gforth] / gforth / kernel / tools.fs  

gforth: gforth/kernel/tools.fs

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

version 1.2, Sun Jul 6 15:56:17 1997 UTC version 1.3, Sat May 2 21:29:10 1998 UTC
Line 74 
Line 74 
     BEGIN      BEGIN
         @ dup          @ dup
     WHILE      WHILE
         2dup head>string nip 2 + dup >r +          2dup name>string nip 2 + dup >r +
         cols >=          cols >=
         IF          IF
             cr nip 0 swap              cr nip 0 swap
         THEN          THEN
         dup head>string type space r> rot + swap          dup name>string type space r> rot + swap
     REPEAT      REPEAT
     2drop ;      2drop ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help