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

Let read-string/partial return "" on a vacuous request.

This commit is contained in:
mainzelm 2003-04-22 16:29:45 +00:00
parent c0b8928e7d
commit 750de51339
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/rw.scm
View File

@ -61,7 +61,7 @@
((open-input-port? fd/port) ((open-input-port? fd/port)
(if (= len 0) (if (= len 0)
0 ""
(let* ((buffer (make-string len)) (let* ((buffer (make-string len))
(nread (read-string!/partial buffer fd/port))) (nread (read-string!/partial buffer fd/port)))
(cond ((not nread) #f) (cond ((not nread) #f)