scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed a syntactically illegal LET.

This commit is contained in:
shivers 1996-09-23 04:52:03 +00:00
parent 2ecccd3546
commit 759e929fa8
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/rw.scm
View File

@ -101,8 +101,8 @@
read-fdport*-substring!/errno read-fdport*-substring!/errno
(extensible-port-local-data fd/port))) (extensible-port-local-data fd/port)))
(else ; Hack it ;; Hack it
(let lp ((i start (+ i 1))) (else (let lp ((i start))
(if (= i end) (- end start) (if (= i end) (- end start)
(let ((c (read-char fd/port))) (let ((c (read-char fd/port)))
(if (eof-object? c) (if (eof-object? c)