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.

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))))