~ chicken-core (master) 49aee0950cac7218defbcb85aacc228fd2912682

commit 49aee0950cac7218defbcb85aacc228fd2912682
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 4 16:07:38 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 4 16:07:38 2026 +0200

    keep already used byte when reading completion

diff --git a/tcp.scm b/tcp.scm
index a05558b8..602c9194 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -440,7 +440,7 @@ EOF
                        (let ((n (##sys#scan-read-ahead enc 
                                   (##core#inline "C_subbyte" buf bufindex))))
                          (when (and n (fx> (fx+ n 1) (fx- buflen bufindex)))
-                           (read-input #f bufindex))))
+                           (read-input #f (fx+ bufindex 1)))))
                    (if (fx< bufindex buflen)
                        (##sys#decode-char buf enc bufindex)
                        #!eof)))