~ chicken-core (master) 8d9caa74797a88cc2d0331b9b1f094bd263ef122

commit 8d9caa74797a88cc2d0331b9b1f094bd263ef122
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 31 22:23:27 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 31 22:23:27 2026 +0200

    fix another problem in numvector reader

diff --git a/library.scm b/library.scm
index a1db238f..403bc268 100644
--- a/library.scm
+++ b/library.scm
@@ -5423,7 +5423,11 @@ EOF
              (##core#inline "C_pairp" lst))
         (let retry ((x (##sys#slot lst 0)))
           (cond ((char? x) (retry (string x)))
-                ((null? x) (loop (##sys#slot lst 1) prev))
+                ((null? x) 
+                  (if prev 
+                      (##sys#setslot prev 1 (##sys#slot lst 1))
+                      (set! lst1 (##sys#slot lst 1)))
+                  (loop (##sys#slot lst 1) prev))
                 ((list? x) 
                   (let ((lst (##sys#append x (##sys#slot lst 1))))
                     (if prev