From 08c72aca5988188e09341a06cdb8cdc634dc9162 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Mon, 15 Jun 2020 12:22:16 +0900
Subject: [PATCH] handle shared dotted tail in writing lists (issue #618)

---
 lib/srfi/38.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index 2e8169e3..5e9a0fb6 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -94,6 +94,8 @@
                          (display " " out)
                          (wr (car ls))
                          (lp (cdr ls)))))
+                      (shared?  ;; shared dotted tail
+                       (write ls out))
                       (else
                        (display " . " out)
                        (wr ls))))))