From 759e929fa83de56461ac6e5657ebaadaa2ec564c Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Mon, 23 Sep 1996 04:52:03 +0000
Subject: [PATCH] Fixed a syntactically illegal LET.

---
 scsh/rw.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/scsh/rw.scm b/scsh/rw.scm
index 15251aa..d030280 100644
--- a/scsh/rw.scm
+++ b/scsh/rw.scm
@@ -101,15 +101,15 @@
 				 read-fdport*-substring!/errno
 				 (extensible-port-local-data fd/port)))
 
-	  (else ; Hack it
-	   (let lp ((i start (+ i 1)))
-	     (if (= i end) (- end start)
-		 (let ((c (read-char fd/port)))
-		   (if (eof-object? c)
-		       (let ((nread (- i start)))
-			 (and (not (zero? nread)) nread))
-		       (begin (string-set! s i c)
-			      (lp (+ i 1)))))))))))
+	  ;; Hack it
+	  (else (let lp ((i start))
+		  (if (= i end) (- end start)
+		      (let ((c (read-char fd/port)))
+			(if (eof-object? c)
+			    (let ((nread (- i start)))
+			      (and (not (zero? nread)) nread))
+			    (begin (string-set! s i c)
+				   (lp (+ i 1)))))))))))
 
 (define (read-string len . maybe-fd/port) 
   (let* ((s (make-string len))