From 2af9643115defef07f8baab8532aeb774a9d3565 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 10 Jul 2012 20:49:37 +0900 Subject: [PATCH] fixing missing newline for final row of formatted list output --- lib/chibi/term/edit-line.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/term/edit-line.scm b/lib/chibi/term/edit-line.scm index 597a6303..7292e4e1 100644 --- a/lib/chibi/term/edit-line.scm +++ b/lib/chibi/term/edit-line.scm @@ -356,7 +356,9 @@ (if (= (+ i 1) num-cols) (newline out) (display (make-string (+ 1 diff) #\space) out)) - (lp (cdr ls) (modulo (+ i 1) num-cols))))))) + (lp (cdr ls) (modulo (+ i 1) num-cols)))) + ((< i num-cols) + (newline out))))) (let try-cols ((num-cols (length words))) (cond ((<= num-cols 1)