From ee2a93fbcac71f38a1ae92ef015a842c35228bf5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 7 Feb 2025 17:02:37 +0000
Subject: [PATCH] Avoid needlessly setting the encoding

---
 knots/web-server.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/knots/web-server.scm b/knots/web-server.scm
index cc47284..2482a79 100644
--- a/knots/web-server.scm
+++ b/knots/web-server.scm
@@ -317,7 +317,8 @@ on the procedure being called at any particular time."
             (if body-written?
                 (begin
                   (force-output client)
-                  (when (procedure? body)
+                  (when (and (procedure? body)
+                             (response-content-length response))
                     (set-port-encoding! client "ISO-8859-1"))
                   (keep-alive? response))
                 #f)))