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

zap superfluous, evil set!

This commit is contained in:
mainzelm 2005-05-19 16:24:44 +00:00
parent 2f57202cfe
commit 0aeb6b35ff
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/input-buffer.scm
View File

@ -218,11 +218,9 @@
(call-with-values (call-with-values
(lambda () (lambda ()
(all-commands-seperated buffer)) (all-commands-seperated buffer))
(lambda (all-lines-seperated new-pos-fin-ln) (lambda (all-lines-seperated pos-fin-ln)
(let ((num-all-lines (length all-lines-seperated)) (let ((num-all-lines (length all-lines-seperated))
(num-lines (buffer-num-lines buffer)) (num-lines (buffer-num-lines buffer)))
(pos-fin-ln (buffer-pos-fin-ln buffer)))
(set! pos-fin-ln new-pos-fin-ln)
(if (>= pos-fin-ln num-lines) (if (>= pos-fin-ln num-lines)
;;aktive Zeile ist die unterste ;;aktive Zeile ist die unterste
(values (sublist all-lines-seperated (values (sublist all-lines-seperated