![[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.43, 2004/05/08 17:14:30 | version 1.44, 2004/12/08 11:05:08 |
|---|---|
| Line 221 set-current | Line 221 set-current |
| ELSE | ELSE |
| fnegate f~rel | fnegate f~rel |
| THEN ; | THEN ; |
| \ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com> | |
| \ not sure if they are a good idea | |
| : FTRUNC ( r1 -- r2 ) | |
| \ round towards 0 | |
| \ !! should be implemented properly | |
| F>D D>F ; | |
| : FMOD ( r1 r2 -- r ) | |
| \ remainder of r1/r2 | |
| \ !! should be implemented properly | |
| FOVER FOVER F/ ftrunc F* F- ; |