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

2004-02-04 08:37:43 +00:00 · 2004-02-04 08:37:43 +00:00 · bdf5f8e09f
parent 1e098d1ced
commit bdf5f8e09f
1 changed files with 1 additions and 1 deletions
--- 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.