-

2026-02-24 15:00:57 +01:00
parent f910364105
commit 174c51d212
1 changed files with 2 additions and 2 deletions
--- 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