handle shared dotted tail in writing lists (issue #618)

2025-07-12 15:37:35 +02:00 · 2020-06-15 12:22:16 +09:00 · 2020-06-15 12:22:16 +09:00 · 08c72aca59
commit 08c72aca59
parent 4734fc1e40
1 changed files with 2 additions and 0 deletions
--- 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))))))