mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Module "(ice-9 threads)" no longer used, now no mutex.

Browse source 
(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.
This commit is contained in:
Kevin Ryde 2006-09-07 21:07:36 +00:00
parent c23d8c6ac5
commit a56f2de792
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/format.scm
View file

@ -13,7 +13,6 @@
(define-module (ice-9 format) (define-module (ice-9 format)
:use-module (ice-9 and-let-star) :use-module (ice-9 and-let-star)
:use-module (ice-9 threads)
:autoload (ice-9 pretty-print) (pretty-print) :autoload (ice-9 pretty-print) (pretty-print)
:replace (format) :replace (format)
:export (format:symbol-case-conv :export (format:symbol-case-conv
@ -1461,8 +1460,8 @@
(if (> format:fn-dot left-zeros) (if (> format:fn-dot left-zeros)
(begin ; norm 0{0}nn.mm to nn.mm (begin ; norm 0{0}nn.mm to nn.mm
(format:fn-shiftleft left-zeros) (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 (begin ; normalize 0{0}.nnn to .nnn
(format:fn-shiftleft format:fn-dot) (format:fn-shiftleft format:fn-dot)
(set! left-zeros (- left-zeros format:fn-dot)) (set! left-zeros (- left-zeros format:fn-dot))