~ chicken-core (master) 3c83b0e987508654cec9e745b0cb304ef0fa5d86

commit 3c83b0e987508654cec9e745b0cb304ef0fa5d86
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 26 19:21:03 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 26 19:21:03 2026 +0200

    must convert to char
    
    (reported by Peter McGoron)

diff --git a/library.scm b/library.scm
index 09621c6b..c4455b14 100644
--- a/library.scm
+++ b/library.scm
@@ -1253,7 +1253,7 @@ EOF
                (lambda (_) ; peek-char
                  (if (eq? index bv-len)
                      #!eof
-                     (##core#inline "C_i_bytevector_ref" bv index)))
+                     (fast-i->c (##core#inline "C_i_bytevector_ref" bv index))))
                #f    ; write-char
                #f    ; write-bytevector
                (lambda (_ _) ; close