Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix read-bytevector logic

Browse source
This commit is contained in:
Vasilij Schneidermann 2024-03-18 03:15:39 +01:00
parent c837c7110f
commit 0fd351e0b5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/scheme/extras.scm
View file

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