Fix bug #62581.

diff --git a/src/runtime/http-io.scm b/src/runtime/http-io.scm
index 15301256f7c10078bb35ab9b28a697fd3faf1b83..b998214ce8cc60e202134ab34e995fb28cd9aa45 100644 (file)
--- a/src/runtime/http-io.scm
+++ b/src/runtime/http-io.scm
@@ -171,17 +171,13 @@ USA.
       (begin
        (write-u8 (char->integer #\space) port)
        (write-http-version (http-request-version request) port)
-       (write-u8 (char->integer #\return) port)
-       (write-u8 (char->integer #\linefeed) port)
+       (newline-ascii port)
        (write-http-headers (http-request-headers request) port)
        (write-bytevector (http-request-body request) port))
       (begin
-       (newline port)))
+       (newline-ascii port)))
   (flush-output-port port))
 
-(define (write-ascii string port)
-  (write-bytevector (string->utf8 string) port))
-
 (define (write-http-response response port)
   (if (http-response-version response)
       (begin
@@ -190,10 +186,17 @@ USA.
        (write-ascii (write-to-string (http-response-status response)) port)
        (write-u8 (char->integer #\space) port)
        (write-ascii (http-response-reason response) port)
-       (newline port)
+       (newline-ascii port)
        (write-http-headers (http-response-headers response) port)))
   (write-bytevector (http-response-body response) port)
   (flush-output-port port))
+
+(define (write-ascii string port)
+  (write-bytevector (string->utf8 string) port))
+
+(define (newline-ascii port)
+  (write-u8 (char->integer #\return) port)
+  (write-u8 (char->integer #\linefeed) port))
 \f
 ;;;; Input