From 174c51d2129238cee924ead035a4ac8233788bc8 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 15:00:57 +0100 Subject: [PATCH] - --- sprintf.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sprintf.rkt b/sprintf.rkt index aca4776..87f89de 100644 --- a/sprintf.rkt +++ b/sprintf.rkt @@ -30,12 +30,12 @@ (precision (if (eq? precision #f) 0 (if (eq? kind 'd) 0 - precision))) + (list '= precision)))) (base (if (eq? kind 'x) 16 10)) ) (when (eq? kind 's) (error "argument is a number, but string expected")) - (let ((r (~r arg #:pad-string pad-str #:min-width min-width #:precision (list '= precision) #:base base))) + (let ((r (~r arg #:pad-string pad-str #:min-width min-width #:precision precision #:base base))) (if (eq? adjust 'left) (let ((r-trim (string-trim r))) (string-append r-trim