From 342eebba7e2f100febd77b414e23dc2a87b6c29a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 5 Jul 2023 18:00:49 +0200 Subject: [PATCH] Better default argument rendering. --- doc/d-utils.md | 4 ++-- src/duck-extract.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/doc/d-utils.md b/doc/d-utils.md index 59b22bd..2f6a726 100644 --- a/doc/d-utils.md +++ b/doc/d-utils.md @@ -57,8 +57,8 @@ Curried version of fast CSV line parser with given separator and string delimite ### csv-parse-lines [procedure] (csv-parse-lines lines - #:separator (separator ;) - #:string-delimiter (string-delimiter ")) + #:separator (separator #\;) + #:string-delimiter (string-delimiter #\")) Parses given lines and returns list of lists of strings. diff --git a/src/duck-extract.scm b/src/duck-extract.scm index 41b2aed..1fc7a9f 100644 --- a/src/duck-extract.scm +++ b/src/duck-extract.scm @@ -125,10 +125,10 @@ (sub1 c) #f (cons (list (if kw - (format "#:~A ~A" + (format "#:~A ~S" (keyword->string kw) (car cargs)) - (format "~A" (car cargs))) + (format "~S" (car cargs))) depth (= c 1)) ar))))))