[EMAIL PROTECTED] (Han-Wen Nienhuys) writes:
>
> guile> (format #f "~$" "02.4738")
> "24.74"
I found the bug, a one line fix in the stripping of leading zeros. It
now gives "2.4738".
--- format.scm.~1.25.4.1.~ 2006-02-21 09:15:27.000000000 +1100
+++ format.scm 2006-09-07 17:58:49.000000000 +1000
@@ -1461,8 +1461,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))
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
