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

Fixed bug in MAKE-STRING-PORT-FILTER: An argument to read-string! was missing

This commit is contained in:
mainzelm 2004-02-04 08:37:43 +00:00
parent 1e098d1ced
commit bdf5f8e09f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/scsh.scm
View File

@ -904,7 +904,7 @@
(buf (make-string buflen))) (buf (make-string buflen)))
(lambda () (lambda ()
(let lp () (let lp ()
(cond ((read-string! buf 0 buflen) => (cond ((read-string! buf (current-input-port) 0 buflen) =>
(lambda (nread) (lambda (nread)
(display (filter (if (= nread buflen) buf (display (filter (if (= nread buflen) buf
(substring buf 0 nread)))) ; last one. (substring buf 0 nread)))) ; last one.