[gforth] / gforth / kernel / tools.fs  

gforth: gforth/kernel/tools.fs

Diff for /gforth/kernel/tools.fs between version 1.27 and 1.28

version 1.27, Mon Dec 31 18:40:26 2007 UTC version 1.28, Wed Aug 10 12:16:09 2011 UTC
Line 27 
Line 27 
   
 \ .S            CORE / CORE EXT                         9may93jaw  \ .S            CORE / CORE EXT                         9may93jaw
   
   
   defer .s.
   ' . is .s.
   
 variable maxdepth-.s ( -- addr ) \ gforth maxdepth-dot-s  variable maxdepth-.s ( -- addr ) \ gforth maxdepth-dot-s
 \G A variable containing 9 by default.  @code{.s} and @code{f.s}  \G A variable containing 9 by default.  @code{.s} and @code{f.s}
 \G display at most that many stack items.  \G display at most that many stack items.
Line 40 
Line 44 
     depth 0 max maxdepth-.s @ min      depth 0 max maxdepth-.s @ min
     dup 0      dup 0
     ?do      ?do
         dup i - pick .          dup i - pick .s.
     loop      loop
     drop ;      drop ;
   


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

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help