~ chicken-core (master) 1b47a6a15787ed5af42e1ccd1606ed50fbb61f21

commit 1b47a6a15787ed5af42e1ccd1606ed50fbb61f21
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Aug 15 16:29:28 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Aug 15 16:29:28 2026 +0200

    fix use of wring variable "bytes->string"
    
    (reported by "crzcrz")

diff --git a/library.scm b/library.scm
index d418024a..caeb1429 100644
--- a/library.scm
+++ b/library.scm
@@ -3531,8 +3531,7 @@ EOF
     (if end
         (##sys#check-range/including end 0 n 'utf8->string))
     (if (not (##core#inline "C_utf_validate" bv n start to))
-        (##sys#error-hook (foreign-value "C_DECODING_ERROR" int)
-         'utf8->string bv))
+        (##sys#error-hook (foreign-value "C_DECODING_ERROR" int) 'utf8->string bv))
     (##sys#buffer->string bv start (##core#inline "C_fixnum_difference" to start))))
 
 (define (bytes->string bv #!optional (start 0) end)
@@ -3541,7 +3540,7 @@ EOF
          (to (or end n)))
     (if end
         (##sys#check-range/including end 0 n 'bytes->string))
-    (##sys#buffer->string bv start (##core#inline "C_fixnum_difference" end start))))
+    (##sys#buffer->string bv start (##core#inline "C_fixnum_difference" to start))))
 
 (define (string->latin1 s)
   (##sys#check-string s 'string->latin1)