aboutsummaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorArun Isaac2023-08-04 10:54:38 +0100
committerArun Isaac2023-08-09 21:29:12 +0100
commitb0f02b4984e9e90cc19feccb39502afb9559674f (patch)
tree0bb2e4f33df633191803fe962f9773e85b4252ad /doc
parentc9d5dff5af979e0d0f7466e238aaf2ada7fa1aba (diff)
downloadguix-forge-b0f02b4984e9e90cc19feccb39502afb9559674f.tar.gz
guix-forge-b0f02b4984e9e90cc19feccb39502afb9559674f.tar.lz
guix-forge-b0f02b4984e9e90cc19feccb39502afb9559674f.zip
doc: Space elements of S-expression in quoted-write.
Prior to this, an expression such as (list 1 2 3) would be printed as (list 123). * doc/skribilo.scm (quoted-write): Add space between elements of S-expression.
Diffstat (limited to 'doc')
-rw-r--r--doc/skribilo.scm7
1 files changed, 2 insertions, 5 deletions
diff --git a/doc/skribilo.scm b/doc/skribilo.scm
index c3b8efc..c8aade0 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -220,11 +220,8 @@ the quote character."
(quoted-write child port))
((parent children ...)
(display "(" port)
- (quoted-write parent port)
- (unless (null? children)
- (display " " port))
- (for-each (cut quoted-write <> port)
- children)
+ (display (string-join (map expression->string object))
+ port)
(display ")" port))
(_ (write object port))))