From 260ffd61184773c047eadc76d8dbc35d5e5ea5c8 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Wed, 1 Sep 2004 23:17:11 +0000 Subject: [PATCH] (format:out-num-padded): Print "+" on 0 under @ modifier. --- ice-9/format.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ice-9/format.scm b/ice-9/format.scm index 98e2216e4..63d83af9a 100644 --- a/ice-9/format.scm +++ b/ice-9/format.scm @@ -1017,7 +1017,7 @@ (commawidth (format:par pars l 3 3 "commawidth"))) (if mincol (let ((numlen numstr-len)) ; calc. the output len of number - (if (and (memq modifier '(at colon-at)) (> number 0)) + (if (and (memq modifier '(at colon-at)) (>= number 0)) (set! numlen (+ numlen 1))) (if (memq modifier '(colon colon-at)) (set! numlen (+ (quotient (- numstr-len @@ -1027,7 +1027,7 @@ (if (> mincol numlen) (format:out-fill (- mincol numlen) padchar)))) (if (and (memq modifier '(at colon-at)) - (> number 0)) + (>= number 0)) (format:out-char #\+)) (if (memq modifier '(colon colon-at)) ; insert comma character (let ((start (remainder numstr-len commawidth))