diff options
| -rw-r--r-- | doc/skribilo.scm | 7 |
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)))) |