suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix error with min-width and fractions

Browse Source
This commit is contained in:
Jay McCarthy 2012-10-29 22:49:12 -06:00
parent 6be405975e
commit 2274e23394
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/format.rkt
View File

@ -378,7 +378,7 @@
(define (number->fraction-string N base upper? precision)
(let ([s (number->string* N base upper?)])
(string-append (make-string (- precision (string-length s)) #\0) s)))
(string-append (make-string (max 0 (- precision (string-length s))) #\0) s)))
;; Allow base up to 36!
(define (get-digit d upper?)