![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to float.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 ; |