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

diff --git a/src/runtime/http-client.scm b/src/runtime/http-client.scm
index 0b6a83e8030f5484903d81c6779c96d38c757cb7..ccbb08399e56cce3fe896581a66bddb19e7b5823 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 a1fae22a3fa606ce24387bc90787a7291f194146..223ed37ff9d3e5a89f04b9c2f8c9140e7d458b1c 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)