--- gforth/stuff.fs 2006/01/28 18:57:20 1.50 +++ gforth/stuff.fs 2006/05/07 05:46:47 1.51 @@ -301,8 +301,9 @@ AUser CSP [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. +\G Display the number of items on the floating-point stack, followed +\G by a list of the items (but not more than specified by +\G @code{maxdepth-.s}; 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 ;