From 750de513391c85b5688b677bfb220677135a5e4f Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 22 Apr 2003 16:29:45 +0000
Subject: [PATCH] Let read-string/partial return "" on a vacuous request.

---
 scsh/rw.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/rw.scm b/scsh/rw.scm
index 812153e..f184ea5 100644
--- 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)