~ chicken-core (master) 97a854a1ae1ee5a809db1ac04c5a2f8c9c890b7d

commit 97a854a1ae1ee5a809db1ac04c5a2f8c9c890b7d
Author:     Felix Winkelmann <felix.winkelmann@bevuta.com>
AuthorDate: Sun Sep 13 23:36:32 2026 +0200
Commit:     Felix Winkelmann <felix.winkelmann@bevuta.com>
CommitDate: Sun Sep 13 23:36:32 2026 +0200

    fix edge case in ##sys#scan-buffer-line

diff --git a/library.scm b/library.scm
index 16ef6b7c..39465dda 100644
--- a/library.scm
+++ b/library.scm
@@ -6170,10 +6170,7 @@ EOF
                                  (begin
                                    (conc1 13)
                                    (loop buf offset offset limit)))
-                             ;; Restore \r here, too (when we reached EOF)
-                             (begin
-                               (conc1 13)
-                               (values offset (getline) #t)))))
+                             (values (fx+ offset 1) (getline) #t))))
                       ((eq? c 13)
                        (conc buf offset pos)
                        (values (fx+ pos 1) (getline) #t))