~ chicken-core (master) 4e0f4668d42433cdff7cfe07c1584ddf2a773330

commit 4e0f4668d42433cdff7cfe07c1584ddf2a773330
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 4 14:52:20 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 4 14:52:20 2026 +0200

    parens, motherfucker!

diff --git a/tcp.scm b/tcp.scm
index e355d32a..74f033a2 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -436,10 +436,10 @@ EOF
 	       (lambda () ; peek-char
                  (let ((enc (##sys#slot inport 15)))
                    (if (eq? bufindex buflen) 
-                       (read-input #t 0))
+                       (read-input #t 0)
                        (let ((n (##sys#scan-read-ahead enc (##core#inline "C_subbyte" buf bufindex))))
                          (when (and n (fx>= n (fx- buflen bufindex)))
-                           (read-input #f bufindex)))
+                           (read-input #f bufindex))))
                    (if (fx< bufindex buflen)
                        (##sys#decode-char buf enc bufindex)
                        #!eof)))