gforth/float.fs - diff

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- ;