X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fread.lisp;h=3c352b33184e451b4470c6e81384ed69284914d4;hb=4989cbba70f7b820baef37d4f4f04e8546c5fd76;hp=9d0ec4615625a75de11c582a1b249ca72f74a0ce;hpb=28da2f2d608aa74d0b9e308220ffbc5cc740a8ea;p=jscl.git

diff --git a/src/read.lisp b/src/read.lisp
index 9d0ec46..3c352b3 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -324,7 +324,7 @@
       (unless (= index size) (return))
       ;; Everything went ok, we have a float
       ;; XXX: Use FLOAT when implemented.
-      (/ (* sign (expt 10.0 (* exponent-sign exponent)) number) divisor))))
+      (/ (* sign (expt 10.0 (* exponent-sign exponent)) number) divisor 1.0))))
 
 (defun !parse-integer (string junk-allow)
   (block nil