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

2 small fixes that where already in 0.5.2

This commit is contained in:
marting 1999-09-28 16:20:02 +00:00
parent bca77db078
commit 54728b3d0e
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
(string-set! chunk (- 128 chunk-left) c)
(cond ((> chunk-left 1)
(set-string-collector:chunk-left (- chunk-left 1)))
(set-string-collector:chunk-left sc (- chunk-left 1)))
(else
(set-string-collector:chunks sc
(cons chunk (string-collector:chunks sc)))
(set-string-collector:chunk sc #f))))
(else
(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)))))
;; We don't actually do anything with this, but we keep it updated anyway.