gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.60, 2011/10/06 21:08:45	version 1.61, 2011/10/07 17:10:15
Line 147 DOES> ( -- r )	Line 147 DOES> ( -- r )
dup	dup
recognizer: r:fnumber	recognizer: r:fnumber

: fnum-recognizer ( addr u -- nt int-table true \| addr u false )	: fnum-recognizer ( addr u -- float int-table \| addr u r:fail )
2dup sfnumber dup	2dup sfnumber
IF	IF
drop 2drop r:fnumber true	2drop r:fnumber EXIT
THEN ;	THEN
	r:fail ;

' fnum-recognizer	' fnum-recognizer
forth-recognizer get-recognizers	forth-recognizer get-recognizers