--- gforth/float.fs	2009/05/24 17:36:36	1.54
+++ gforth/float.fs	2011/10/06 20:04:35	1.59
@@ -1,6 +1,6 @@
 \ High level floating point                            14jan94py
 
-\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -141,6 +141,22 @@ DOES> ( -- r )
 	2drop false
     THEN ;
 
+[ifdef] recognizer:
+    ' noop
+    :noname postpone Fliteral ;
+    dup
+    recognizer: r:fnumber
+
+    :noname ( addr u -- nt int-table true | addr u false )
+    2dup sfnumber  dup
+    IF
+	drop 2drop r:fnumber  true
+    THEN ; Constant fnum-recognizer
+
+fnum-recognizer
+forth-recognizer get-recognizers
+1+ forth-recognizer set-recognizers
+[else]
 [ifundef] compiler-notfound1
 defer compiler-notfound1
 ' no.extensions IS compiler-notfound1
@@ -170,6 +186,7 @@ IS compiler-notfound1
 	defers interpreter-notfound1
     ENDIF ;
 IS interpreter-notfound1
+[then]
 
 : fvariable ( "name" -- ) \ float f-variable
     Create 0.0E0 f, ;
@@ -233,13 +250,13 @@ set-current
 	fnegate f~rel
     THEN ;
 
--0e fp@ c@ $80 = [if] 0 [else] 7 [endif] constant fsign-offset
+-0e 8 0 [do] fp@ [i] + c@ $80 = [if] [i] constant fsign-offset [then] [loop]
 
 : fcopysign ( r1 r2 -- r3 ) \ gforth
 \G r3 takes its absolute value from r1 and its sign from r2
     \ !! implementation relies on IEEE DP format
-    fp@ dup fsign-offset + dup c@ $80 and >r ( r1 r2 addr-r1sign )
-    float + dup c@ $7f and r> or swap c!
+    fp@ fsign-offset + dup c@ $80 and >r ( r1 r2 addr-r1sign )
+    float+ dup c@ $7f and r> or swap c!
     fdrop ;
 
 \ proposals from Krishna Myeni in <cjsp2d$47l$1@ngspool-d02.news.aol.com>