From b0f02b4984e9e90cc19feccb39502afb9559674f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 4 Aug 2023 10:54:38 +0100
Subject: 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.
---
 doc/skribilo.scm | 7 ++-----
 1 file 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))))
 
-- 
cgit v1.2.3