[gforth] / gforth / Attic / tools.fs  

gforth: gforth/Attic/tools.fs

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

version 1.1, Fri Feb 11 16:30:47 1994 UTC version 1.2, Fri Jul 8 15:01:02 1994 UTC
Line 6 
Line 6 
   
 \ .S            CORE / CORE EXT                         9may93jaw  \ .S            CORE / CORE EXT                         9may93jaw
   
   variable maxdepth-.s
   9 maxdepth-.s !
   
 : .s ( -- )  : .s ( -- )
 \ depth 0= IF ." <empty> " THEN      ." <" depth 0 .r ." > "
   depth 0 ?DO  I pick . LOOP ;      depth 0 max maxdepth-.s @ min
       dup 0
       ?do
           dup i - pick .
       loop
       drop ;
   
 \ DUMP                       2may93jaw - 9may93jaw    06jul93py  \ DUMP                       2may93jaw - 9may93jaw    06jul93py
 \ looks very nice, I know  \ looks very nice, I know

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