Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Correct let to let*

Browse source
This commit is contained in:
Vasilij Schneidermann 2024-03-18 02:48:48 +01:00
parent 1b1e8b311b
commit c837c7110f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/scheme/extras.scm
View file

@ -134,9 +134,9 @@
(define (read-bytevector n . o) (define (read-bytevector n . o)
(if (zero? n) (if (zero? n)
#u8() #u8()
(let ((in (if (pair? o) (car o) (current-input-port))) (let* ((in (if (pair? o) (car o) (current-input-port)))
(vec (make-bytevector n)) (vec (make-bytevector n))
(res (read-bytevector! vec in))) (res (read-bytevector! vec in)))
(cond ((eof-object? res) res) (cond ((eof-object? res) res)
((< res n) (subbytes vec 0 i)) ((< res n) (subbytes vec 0 i))
(else res))))) (else res)))))