Better default argument rendering.

This commit is contained in:
Dominik Pantůček 2023-07-05 18:00:49 +02:00
parent b5c1be00a6
commit 342eebba7e
2 changed files with 4 additions and 4 deletions

View file

@ -57,8 +57,8 @@ Curried version of fast CSV line parser with given separator and string delimite
### csv-parse-lines [procedure] ### csv-parse-lines [procedure]
(csv-parse-lines lines (csv-parse-lines lines
#:separator (separator ;) #:separator (separator #\;)
#:string-delimiter (string-delimiter ")) #:string-delimiter (string-delimiter #\"))
Parses given lines and returns list of lists of strings. Parses given lines and returns list of lists of strings.

View file

@ -125,10 +125,10 @@
(sub1 c) (sub1 c)
#f #f
(cons (list (if kw (cons (list (if kw
(format "#:~A ~A" (format "#:~A ~S"
(keyword->string kw) (keyword->string kw)
(car cargs)) (car cargs))
(format "~A" (car cargs))) (format "~S" (car cargs)))
depth depth
(= c 1)) (= c 1))
ar)))))) ar))))))