From a56f2de79273bd336e840fcbdd16aa96bd34f3e8 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 7 Sep 2006 21:07:36 +0000 Subject: [PATCH] Module "(ice-9 threads)" no longer used, now no mutex. (format:parse-float): Fix normalization of leading zeros like "02.5" to "2.5". left-zeros was zeroed before adjusting format:fn-dot, resulting in the latter being unchanged. --- ice-9/format.scm | 5 ++--- 1 file 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))