gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.13, 1995/02/06 18:14:33	version 1.14, 1995/02/08 13:38:51
Line 32	Line 32

: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ;	: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ;

: FLit ( -- r ) r> faligned dup f@ float+ >r ;	: FLit ( -- r ) r> dup f@ float+ >r ;
: FLiteral ( r -- ) postpone FLit falign f, ; immediate	: FLiteral ( r -- )
	BEGIN here cell+ dup faligned <> WHILE postpone noop REPEAT
	postpone FLit f, ; immediate

&15 Value precision	&15 Value precision
: set-precision to precision ;	: set-precision to precision ;