Fix rounding bug

s-expressionists · Jul 28, 2024 · b578236 · b578236
1 parent ec0d67d
commit b578236
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/floating-point-printers.lisp b/code/floating-point-printers.lisp
@@ -32,7 +32,7 @@
     (when (and (< (+ decimal-position count) (length decimal-digits))
                (< -1 (+ decimal-position count) (length decimal-digits))
                (> (aref decimal-digits (+ decimal-position count)) 4))
-      (loop for pos = (+ decimal-position count -1)
+      (loop for pos = (+ decimal-position count -1) then (1- pos)
             for (carry new-digit) = (multiple-value-list (floor (1+ (aref decimal-digits pos)) 10))
             do (setf (aref decimal-digits pos) new-digit)
             when (zerop carry)