scsh-conservatory
/
scsh-ncurses
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed some minor bugs

This commit is contained in:
demattia 2004-10-10 13:19:55 +00:00
parent 9e9294231e
commit 5a249d54d4
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/input-buffer.scm
View File

@ -356,11 +356,13 @@
(lambda (num-cols pos-col line) (lambda (num-cols pos-col line)
(let* ((lines (ceiling (/ (string-length line) num-cols))) (let* ((lines (ceiling (/ (string-length line) num-cols)))
(end-pos (* lines num-cols))) (end-pos (* lines num-cols)))
(let loop ((offset 0) (if (= (string-length line) 0)
(end end-pos)) 0
(if (< (+ end 2) pos-col) (let loop ((offset 0)
(- offset 1) (end end-pos))
(loop (+ offset 1) (- end num-cols))))))) (if (<= (+ end 2) pos-col)
(- offset 1)
(loop (+ offset 1) (- end num-cols))))))))