gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.61, 2011/10/07 17:10:15	version 1.62, 2011/11/14 22:33:22
Line 88 DOES> ( -- r )	Line 88 DOES> ( -- r )
\G @code{F.} @code{FE.} and @code{FS.} to @i{u}.	\G @code{F.} @code{FE.} and @code{FS.} to @i{u}.
to precision ;	to precision ;

: scratch ( r -- addr len )	: scratch ( -- addr len )
pad precision - precision ;	pad precision - precision ;

: zeros ( n -- ) 0 max 0 ?DO '0 emit LOOP ;	: zeros ( n -- ) 0 max 0 ?DO '0 emit LOOP ;