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

18
scsh/rw.scm
View File

@ -101,15 +101,15 @@
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)
(let ((nread (- i start))) (let ((nread (- i start)))
(and (not (zero? nread)) nread)) (and (not (zero? nread)) nread))
(begin (string-set! s i c) (begin (string-set! s i c)
(lp (+ i 1))))))))))) (lp (+ i 1)))))))))))
(define (read-string len . maybe-fd/port) (define (read-string len . maybe-fd/port)
(let* ((s (make-string len)) (let* ((s (make-string len))