Fixed a syntactically illegal LET.

1996-09-23 04:52:03 +00:00 · 1996-09-23 04:52:03 +00:00 · 759e929fa8
parent 2ecccd3546
commit 759e929fa8
1 changed files with 9 additions and 9 deletions
--- a/scsh/rw.scm
+++ b/scsh/rw.scm
@ -101,8 +101,8 @@
 				 read-fdport*-substring!/errno
 				 (extensible-port-local-data fd/port)))

-	  (else ; Hack it
-	   (let lp ((i start (+ i 1)))
+	  ;; Hack it
+	  (else (let lp ((i start))
 		  (if (= i end) (- end start)
 		      (let ((c (read-char fd/port)))
 			(if (eof-object? c)