From bdf5f8e09fd1c653bb2b286da2cfdea5d237047c Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 4 Feb 2004 08:37:43 +0000
Subject: [PATCH] Fixed bug in MAKE-STRING-PORT-FILTER: An argument to
 read-string! was missing

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

diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index cc53d49..c20ebac 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -904,7 +904,7 @@
 	 (buf (make-string buflen)))
     (lambda ()
       (let lp ()
-	(cond ((read-string! buf 0 buflen) =>
+	(cond ((read-string! buf (current-input-port) 0 buflen) =>
 	       (lambda (nread)
 		 (display (filter (if (= nread buflen) buf
 				      (substring buf 0 nread)))) ; last one.