Fix bug #62582.

diff --git a/src/runtime/http-io.scm b/src/runtime/http-io.scm
index b998214ce8cc60e202134ab34e995fb28cd9aa45..237ff3a96b97591142f60df1912ca8e6a1a6c54e 100644 (file)
--- a/src/runtime/http-io.scm
+++ b/src/runtime/http-io.scm
@@ -247,7 +247,7 @@ USA.
            (let ((b.t
                   (or (%read-chunked-body headers port)
                       (%read-delimited-body headers port)
-                      (%no-read-body))))
+                      (%read-no-body))))
              (make-http-request method uri version
                                 (append! headers (cdr b.t))
                                 (car b.t))))))))
@@ -266,7 +266,7 @@ USA.
                       (or (%read-chunked-body headers port)
                           (%read-delimited-body headers port)
                           (%read-terminal-body headers port)
-                          (%no-read-body)))))
+                          (%read-no-body)))))
              (make-http-response version status reason
                                  (append! headers (cdr b.t))
                                  (car b.t))))))))
@@ -341,8 +341,8 @@ USA.
                   (write-u8 (bytevector-u8-ref buffer i) output))
                 (loop)))))))))
 
-(define (%no-read-body)
-  (error "Unable to determine HTTP message body length."))
+(define (%read-no-body)
+  '(#u8()))
 \f
 ;;;; Request and response lines