From f3d57a381fc8947680d41163ca8fae95c0141794 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 11:45:25 +0100 Subject: [PATCH] - --- sprintf.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sprintf.rkt b/sprintf.rkt index fbc3337..aca4776 100644 --- a/sprintf.rkt +++ b/sprintf.rkt @@ -35,7 +35,7 @@ ) (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 precision #:base base))) + (let ((r (~r arg #:pad-string pad-str #:min-width min-width #:precision (list '= precision) #:base base))) (if (eq? adjust 'left) (let ((r-trim (string-trim r))) (string-append r-trim