~ chicken-core (master) 102dca86387ce208eae77b9ed2d43ebd75636f07
commit 102dca86387ce208eae77b9ed2d43ebd75636f07
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 4 15:08:41 2026 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 4 15:08:41 2026 +0200
indentation
diff --git a/tcp.scm b/tcp.scm
index 74f033a2..ce62b530 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -450,7 +450,8 @@ EOF
((fx< bufindex buflen)
(let* ((rest (fx- buflen bufindex))
(n2 (if (fx< n rest) n rest)))
- (##core#inline "C_copy_memory_with_offset" dest buf start bufindex n2)
+ (##core#inline "C_copy_memory_with_offset"
+ dest buf start bufindex n2)
(set! bufindex (fx+ bufindex n2))
(loop (fx- n n2) (fx+ m n2) (fx+ start n2)) ) )
(else
Trap