math.parser: make float-parse:point a fixnum.

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 7dd7f0f9d7f076b70df262e17c8cac03de368e22..de8f60ce1d71541c55730b807a2b84d2297bfffc 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -73,12 +73,12 @@ TUPLE: number-parse
 
 TUPLE: float-parse
     { radix fixnum }
-    { point }
+    { point fixnum }
     { exponent }
     { magnitude } ;
 : inc-point-?dec-magnitude ( float-parse n -- float-parse' )
     zero? [ [ 1 fixnum-fast ] change-magnitude ] when
-    [ 1 + ] change-point ; inline
+    [ 1 fixnum+fast ] change-point ; inline
 
 : store-exponent ( float-parse n expt -- float-parse' n )
     swap [ >>exponent ] dip ; inline