Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.44, 2004/12/08 11:05:08 | version 1.45, 2004/12/08 11:26:59 |
---|---|
Line 232 set-current | Line 232 set-current |
: FMOD ( r1 r2 -- r ) | : FMOD ( r1 r2 -- r ) |
\ remainder of r1/r2 | \ remainder of r1/r2 |
\ !! should be implemented properly | |
FOVER FOVER F/ ftrunc F* F- ; | FOVER FOVER F/ ftrunc F* F- ; |