hans/racket-sprintf
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-24 15:00:57 +01:00
parent f910364105
commit 174c51d212
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
sprintf.rkt
View File

@@ -30,12 +30,12 @@
(precision (if (eq? precision #f) 0 (precision (if (eq? precision #f) 0
(if (eq? kind 'd) (if (eq? kind 'd)
0 0
precision))) (list '= precision))))
(base (if (eq? kind 'x) 16 10)) (base (if (eq? kind 'x) 16 10))
) )
(when (eq? kind 's) (when (eq? kind 's)
(error "argument is a number, but string expected")) (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) (if (eq? adjust 'left)
(let ((r-trim (string-trim r))) (let ((r-trim (string-trim r)))
(string-append r-trim (string-append r-trim