summaryrefslogtreecommitdiff
path: root/ice-9/format.scm
diff options
context:
space:
mode:
Diffstat (limited to 'ice-9/format.scm')
-rw-r--r--ice-9/format.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/ice-9/format.scm b/ice-9/format.scm
index 3d17d44df..4bf623757 100644
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -13,7 +13,6 @@
(define-module (ice-9 format)
:use-module (ice-9 and-let-star)
- :use-module (ice-9 threads)
:autoload (ice-9 pretty-print) (pretty-print)
:replace (format)
:export (format:symbol-case-conv
@@ -1461,8 +1460,8 @@
(if (> format:fn-dot left-zeros)
(begin ; norm 0{0}nn.mm to nn.mm
(format:fn-shiftleft left-zeros)
- (set! left-zeros 0)
- (set! format:fn-dot (- format:fn-dot left-zeros)))
+ (set! format:fn-dot (- format:fn-dot left-zeros))
+ (set! left-zeros 0))
(begin ; normalize 0{0}.nnn to .nnn
(format:fn-shiftleft format:fn-dot)
(set! left-zeros (- left-zeros format:fn-dot))