diff options
author | Timothy Sample <samplet@ngyro.com> | 2021-10-19 02:50:51 +0200 |
---|---|---|
committer | Daniel Llorens <lloda@sarc.name> | 2021-10-19 02:52:15 +0200 |
commit | c85724bd0a72a11f8c28c844a200d624ce32958a (patch) | |
tree | c058638661fee6541297aee9093240752160e111 /module | |
parent | 98dff7a75e672f98154c52a2ceb00e2c9015a06b (diff) | |
download | guile-c85724bd0a72a11f8c28c844a200d624ce32958a.tar.gz |
(ice-9 format): Fix scaling floats with leading zeros
Diffstat (limited to 'module')
-rw-r--r-- | module/ice-9/format.scm | 4 |
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 |