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

2003-04-22 16:29:45 +00:00 · 2003-04-22 16:29:45 +00:00 · 750de51339
parent c0b8928e7d
commit 750de51339
1 changed files with 1 additions and 1 deletions
--- a/scsh/rw.scm
+++ b/scsh/rw.scm
@ -61,7 +61,7 @@
 	  
 	  ((open-input-port? fd/port)
 	   (if (= len 0)
-	       0
+               ""
 	       (let* ((buffer (make-string len))
 		      (nread (read-string!/partial buffer fd/port)))
 		 (cond ((not nread) #f)