Changeset 15126 in project


Ignore:
Timestamp:
07/01/09 06:53:25 (11 years ago)
Author:
Alex Shinn
Message:

fixing bug in (num 0)

Location:
release/4/fmt/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/fmt/trunk/fmt.scm

    r14174 r15126  
    766766                (cond
    767767                 ((and (not digits)
    768                        (not (positive? k)))
     768                       (or (negative? k)
     769                           (and (zero? k)
     770                                (not (integer? n)))))
    769771                  (write-char #\0 port)
    770772                  (display decimal-sep port)
  • release/4/fmt/trunk/fmt.setup

    r14409 r15126  
    55 'fmt
    66 '("fmt.so" "fmt.import.so")
    7  '((version 0.520) (documentation "fmt.html")))
     7 '((version 0.521) (documentation "fmt.html")))
    88
    99(compile -s -O2 -d0 -j fmt-c fmt-c.scm)
     
    1212 'fmt-c
    1313 '("fmt-c.so" "fmt-c.import.so")
    14  '((version 0.520) (documentation "fmt.html")))
     14 '((version 0.521) (documentation "fmt.html")))
    1515
    1616(compile -s -O2 -d0 -j fmt-color fmt-color.scm)
     
    1919 'fmt-color
    2020 '("fmt-color.so" "fmt-color.import.so")
    21  '((version 0.520) (documentation "fmt.html")))
     21 '((version 0.521) (documentation "fmt.html")))
    2222
    2323(compile -s -O2 -f -d0 -j fmt-unicode fmt-unicode.scm)
     
    2626 'fmt-unicode
    2727 '("fmt-unicode.so" "fmt-unicode.import.so")
    28  '((version 0.520) (documentation "fmt.html")))
     28 '((version 0.521) (documentation "fmt.html")))
  • release/4/fmt/trunk/test-fmt.scm

    r14276 r15126  
    4040(test "10" (fmt #f 10))
    4141(test "100" (fmt #f 100))
     42(test "-1" (fmt #f (num -1)))
     43(test "0" (fmt #f (num 0)))
     44(test "1" (fmt #f (num 1)))
     45(test "10" (fmt #f (num 10)))
     46(test "100" (fmt #f (num 100)))
    4247;; (test "1e+15" (fmt #f 1e+15))
    4348;; (test "1e+23" (fmt #f 1e+23))
Note: See TracChangeset for help on using the changeset viewer.