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

Remove refresh-all from care-for-return 

reimplement fill-up and cat
This commit is contained in:
mainzelm 2006-04-07 09:43:29 +00:00
parent 406aeafd2e
commit e69a69c2b2
1 changed files with 7 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
scheme/input-fields.scm
View File

@ -403,7 +403,6 @@
((#f) ;; konnte nichts machen ((#f) ;; konnte nichts machen
(values #t #f)) (values #t #f))
((#t) ;; etwas zugefügt oder entfernt ((#t) ;; etwas zugefügt oder entfernt
(refresh-all input-field)
(values #t #t)) (values #t #t))
(else (else
(values #t #f))))) (values #t #f)))))
@ -819,7 +818,7 @@
y-edit-pos) y-edit-pos)
(list (list
(append (append
(reverse (cdr (reverse current-line))) (drop-right current-line 1)
(list-ref edit-lines (list-ref edit-lines
(+ y-edit-pos 1)))) (+ y-edit-pos 1))))
(drop edit-lines (drop edit-lines
@ -1542,35 +1541,15 @@
(define fill-up (define fill-up
(lambda (lst len elem) (lambda (lst len elem)
(append lst (let* ((lst-len (length lst))
(let loop ((n (- len (needed (- len lst-len)))
(length lst)))) (if (= needed 0)
(if (< n 0) lst
'() ;'error--fill-up (append lst (make-list needed elem))))))
(if (zero? n)
'()
(cons elem
(loop (- n 1)))))))))
(define cat (define cat
(lambda (lst-lst) (lambda (lst-lst)
(if (null? lst-lst) (apply append lst-lst)))
'()
(append (car lst-lst)
(cat (cdr lst-lst))))))
(define split
(lambda (lst n)
(let loop ((fst '())
(scnd lst)
(n n))
(if (or (null? scnd)
(zero? n))
(values (reverse fst) scnd)
(loop (cons (car scnd)
fst)
(cdr scnd)
(- n 1))))))
(define remove (define remove
(lambda (lst pos) (lambda (lst pos)