From 2274e23394e63d71896cbbf01506085802e82f17 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 29 Oct 2012 22:49:12 -0600 Subject: [PATCH] Fix error with min-width and fractions --- collects/racket/format.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/format.rkt b/collects/racket/format.rkt index ba334c76eb..481e452499 100644 --- a/collects/racket/format.rkt +++ b/collects/racket/format.rkt @@ -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?)