runtime/http-io: request body can be #f

diff --git a/src/runtime/http-client.scm b/src/runtime/http-client.scm
index 2cde4a7a1c66077e445057825a430545c2d522b5..e73ccf68d864e1e03cad4542803e456b0c9aceaf 100644 (file)
--- a/src/runtime/http-client.scm
+++ b/src/runtime/http-client.scm
@@ -30,10 +30,10 @@ USA.
 (declare (usual-integrations))
 \f
 (define (http-get uri headers)
-  (http-client-exchange "GET" (->uri uri) headers (bytevector)))
+  (http-client-exchange "GET" (->uri uri) headers #f))
 
 (define (http-head uri headers)
-  (http-client-exchange "HEAD" (->uri uri) headers (bytevector)))
+  (http-client-exchange "HEAD" (->uri uri) headers #f))
 
 (define (http-post uri headers body)
   (http-client-exchange "POST" (->uri uri) headers body))

diff --git a/src/runtime/http-io.scm b/src/runtime/http-io.scm
index c9ca27a8de3362676c194693bb832f5c3226f1e3..12fdeb81f555d57a6e700ed69fa3ecb1f50a8a61 100644 (file)
--- a/src/runtime/http-io.scm
+++ b/src/runtime/http-io.scm
@@ -93,7 +93,7 @@ USA.
                                              (number->string m))
                            headers)
                      body))))
-      (values headers "")))
+      (values headers (bytevector))))
 \f
 (define (simple-http-request? object)
   (and (http-request? object)
@@ -103,7 +103,7 @@ USA.
 
 (define (make-simple-http-request uri)
   (guarantee simple-http-request-uri? uri 'make-http-request)
-  (%make-http-request '|GET| uri #f '() ""))
+  (%make-http-request '|GET| uri #f '() (bytevector)))
 
 (define (simple-http-response? object)
   (and (http-response? object)