gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.6, 1994/07/21 10:52:40	version 1.7, 1994/08/25 15:25:23
Line 70	Line 70
scratch over c@ emit '. emit 1 /string type	scratch over c@ emit '. emit 1 /string type
'E emit . ;	'E emit . ;

: fnumber ( string -- r / )	: sfnumber ( c-addr u -- r / )
?dup IF dup count >float 0=	2dup >float
IF defers notfound	IF
ELSE drop state @	2drop state @
IF postpone FLiteral THEN THEN THEN ;	IF
	postpone FLiteral
	THEN
	ELSE
	defers notfound
	THEN ;

' fnumber IS notfound	' sfnumber IS notfound

1e0 fasin 2e0 f* fconstant pi	1e0 fasin 2e0 f* fconstant pi