--- gforth/float.fs	2011/11/14 22:33:22	1.62
+++ gforth/float.fs	2011/12/31 15:29:25	1.64
@@ -1,6 +1,6 @@
 \ High level floating point                            14jan94py
 
-\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010,2011 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -142,8 +142,14 @@ 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