From 0fd351e0b587ea80070f4affa4624d006b730c1c Mon Sep 17 00:00:00 2001
From: Vasilij Schneidermann <mail@vasilij.de>
Date: Mon, 18 Mar 2024 03:15:39 +0100
Subject: [PATCH] Fix read-bytevector logic

---
 lib/scheme/extras.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/scheme/extras.scm b/lib/scheme/extras.scm
index a9279464..304db168 100644
--- a/lib/scheme/extras.scm
+++ b/lib/scheme/extras.scm
@@ -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)))