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

Bugfix. How did this go so long undetected? -Olin

This commit is contained in:
shivers 1999-07-11 20:18:44 +00:00
parent 48a5f0516c
commit 1bb7a2e494
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/stringcoll.scm
View File

@ -132,14 +132,14 @@
(cond (chunk (cond (chunk
(string-set! chunk (- 128 chunk-left) c) (string-set! chunk (- 128 chunk-left) c)
(cond ((> chunk-left 1) (cond ((> chunk-left 1)
(set-string-collector:chunk-left (- chunk-left 1))) (set-string-collector:chunk-left sc (- chunk-left 1)))
(else (else
(set-string-collector:chunks sc (set-string-collector:chunks sc
(cons chunk (string-collector:chunks sc))) (cons chunk (string-collector:chunks sc)))
(set-string-collector:chunk sc #f)))) (set-string-collector:chunk sc #f))))
(else (else
(let ((new-chunk (make-string 128 c))) (let ((new-chunk (make-string 128 c)))
(set-string-collector:chunk-left 127) (set-string-collector:chunk-left sc 127)
(set-string-collector:chunk sc new-chunk))))) (set-string-collector:chunk sc new-chunk)))))
;; We don't actually do anything with this, but we keep it updated anyway. ;; We don't actually do anything with this, but we keep it updated anyway.