fixing bug in pp-with-indent on dotted list

This commit is contained in:
Alex Shinn 2019-08-24 16:00:47 +08:00
parent cc1ca2622d
commit 8645b23d42

View file

@ -196,7 +196,7 @@
(each first-line
(cond
((not (or (null? tail) (pair? tail)))
(each ". " (pp tail pp shares)))
(each ". " (pp tail)))
((> (or (length+ (cdr ls)) +inf.0) (or indent-rule 1))
(each sep (joined/shares pp tail shares sep)))
(else