![]() ![]() | ![]() |
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- ; |