![[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.37, 2002/10/27 09:57:10 | version 1.38, 2002/11/02 15:26:03 |
|---|---|
| Line 222 set-current | Line 222 set-current |
| fnegate f~rel | fnegate f~rel |
| THEN ; | THEN ; |
| 2e 53e f** fconstant fround-offset \ !! does f** work correctly? | 1e 53 0 [do] f2* [loop] fconstant fround-offset \ 2^53 |
| : fround ( r1 -- r2 ) \ float f-round | : fround ( r1 -- r2 ) \ float f-round |
| \G Round to nearest integral value. Break ties with round-to-even. | \G Round to nearest integral value. Break ties with round-to-even. |