Better default argument rendering.

2023-07-05 18:00:49 +02:00 · 2023-07-05 18:00:49 +02:00 · 342eebba7e
commit 342eebba7e
parent b5c1be00a6
2 changed files with 4 additions and 4 deletions
--- 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))))))