Better default argument rendering.
This commit is contained in:
parent
b5c1be00a6
commit
342eebba7e
2 changed files with 4 additions and 4 deletions
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue