Avoid needlessly setting the encoding

2025-02-07 17:02:37 +00:00 · 2025-02-07 17:02:37 +00:00 · ee2a93fbca
commit ee2a93fbca
parent cb2085b684
1 changed files with 2 additions and 1 deletions
--- 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)))