Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing missing newline for final row of formatted list output

Browse source
This commit is contained in:
Alex Shinn 2012-07-10 20:49:37 +09:00
parent 0c832129df
commit 2af9643115
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/term/edit-line.scm
View file

@ -356,7 +356,9 @@
(if (= (+ i 1) num-cols) (if (= (+ i 1) num-cols)
(newline out) (newline out)
(display (make-string (+ 1 diff) #\space) 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))) (let try-cols ((num-cols (length words)))
(cond (cond
((<= num-cols 1) ((<= num-cols 1)