[BACK]Return to stuff.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/stuff.fs between versions 1.32 and 1.33

version 1.32, 2003/03/22 10:04:07 version 1.33, 2004/05/08 17:14:30
Line 275  AUser CSP Line 275  AUser CSP
         10e f*          10e f*
     loop ;      loop ;
 [then]  [then]
   
   : f.s ( -- ) \ gforth f-dot-s
       \G Display the number of items on the floating-point stack,
       \G followed by a list of the items; TOS is the right-most item.
       ." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0 
       ?DO  dup i - 1- floats fp@ + f@ 16 5 11 f.rdp space LOOP  drop ; 
Removed from v.1.32  
changed lines
  Added in v.1.33

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>