--- gforth/float.fs	2011/10/06 21:08:45	1.60
+++ gforth/float.fs	2011/12/28 13:39:49	1.63
@@ -88,7 +88,7 @@ DOES> ( -- r )
     \G @code{F.} @code{FE.} and @code{FS.} to @i{u}.
     to precision ;
 
-: scratch ( r -- addr len )
+: scratch ( -- addr len )
   pad precision - precision ;
 
 : zeros ( n -- )   0 max 0 ?DO  '0 emit  LOOP ;
@@ -142,16 +142,23 @@ DOES> ( -- r )
     THEN ;
 
 [ifdef] recognizer:
-    ' noop
-    :noname postpone Fliteral ;
+    [IFDEF] 2lit,
+	: flit, postpone Fliteral ;
+	:noname ['] noop ;
+	:noname ['] flit, ;
+    [ELSE]
+	' noop
+	:noname postpone Fliteral ;
+    [THEN]
     dup
     recognizer: r:fnumber
 
-    : fnum-recognizer ( addr u -- nt int-table true | addr u false )
-    2dup sfnumber  dup
-    IF
-	drop 2drop r:fnumber  true
-    THEN ;
+    : fnum-recognizer ( addr u -- float int-table | addr u r:fail )
+	2dup sfnumber
+	IF
+	    2drop r:fnumber  EXIT
+	THEN
+	r:fail ;
 
 ' fnum-recognizer
 forth-recognizer get-recognizers