Fix fencepost in decoding powers of two into IEEE 754 components.

diff --git a/src/runtime/ieee754.scm b/src/runtime/ieee754.scm
index 2f6741109c52c0ec32e8cb6c3624721d5b309fdc..a2a51b2ff389c25d53a1f80e10325441098a3c5c 100644 (file)
--- a/src/runtime/ieee754.scm
+++ b/src/runtime/ieee754.scm
@@ -80,7 +80,7 @@ USA.
            (cond ((<= 1 x)              ;Nonnegative exponent (normal)
                   (let loop ((exponent 0) (x x))
                     (cond ((< emax exponent) (if-infinite sign))
-                          ((< base x) (loop (+ exponent 1) (/ x base)))
+                          ((<= base x) (loop (+ exponent 1) (/ x base)))
                           (else (if-normal sign exponent (significand x))))))
                  ((< (expt base emin) x) ;Negative exponent, normal
                   (let loop ((exponent 0) (x x))