Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.42, 2003/03/09 15:16:49 | version 1.43, 2004/05/08 17:14:30 |
---|---|
Line 221 set-current | Line 221 set-current |
ELSE | ELSE |
fnegate f~rel | fnegate f~rel |
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@ f. LOOP drop ; |