summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorTimothy Sample <samplet@ngyro.com>2021-10-19 02:50:51 +0200
committerDaniel Llorens <lloda@sarc.name>2021-10-19 02:52:15 +0200
commitc85724bd0a72a11f8c28c844a200d624ce32958a (patch)
treec058638661fee6541297aee9093240752160e111 /module
parent98dff7a75e672f98154c52a2ceb00e2c9015a06b (diff)
downloadguile-c85724bd0a72a11f8c28c844a200d624ce32958a.tar.gz
(ice-9 format): Fix scaling floats with leading zeros
Diffstat (limited to 'module')
-rw-r--r--module/ice-9/format.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/format.scm b/module/ice-9/format.scm
index 48d9c0c84..ee7cba910 100644
--- a/module/ice-9/format.scm
+++ b/module/ice-9/format.scm
@@ -1359,10 +1359,10 @@
(else
(if (> left-zeros 0)
(if (<= left-zeros shift) ; shift always > 0 here
- (format:fn-shiftleft shift) ; shift out 0s
(begin
(format:fn-shiftleft left-zeros)
- (set! format:fn-dot (- shift left-zeros))))
+ (set! format:fn-dot (- shift left-zeros)))
+ (format:fn-shiftleft shift)) ; shift out 0s
(set! format:fn-dot (+ format:fn-dot shift))))))))
(let ((negexp ; expon format m.nnnEee