~ chicken-core (master) cb3efb077f701c41b851d55e031868cfc887745f

commit cb3efb077f701c41b851d55e031868cfc887745f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Aug 16 21:06:50 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Aug 16 21:06:50 2026 +0200

    formatting

diff --git a/port.scm b/port.scm
index 78a7bd9c..34dd6024 100644
--- a/port.scm
+++ b/port.scm
@@ -196,8 +196,7 @@ char *ttyname(int fd) {
       (##sys#check-port dest 'copy-port)
       (let ((buf (##sys#make-bytevector +buf-size+)))
         (let loop ()
-          (let ((n (chicken.io#read-bytevector!/port +buf-size+
-                     buf src 0)))
+          (let ((n (chicken.io#read-bytevector!/port +buf-size+ buf src 0)))
             (unless (eq? n 0)
               (chicken.io#write-bytevector buf dest 0 n)
               (loop))))))
diff --git a/posixunix.scm b/posixunix.scm
index cf1cf970..a155455f 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -882,8 +882,7 @@ static int set_file_mtime(C_word filename, C_word atime, C_word mtime)
 				  (loop n m start) ) ] ) ) )
                    read-line:
 		   (lambda (p limit)	; read-line
-		     (when (fx>= bufpos buflen)
-		       (fetch))
+		     (when (fx>= bufpos buflen) (fetch))
 		     (if (fx>= bufpos buflen)
 			 #!eof
 			 (let ((limit (or limit (fx- most-positive-fixnum bufpos))))