From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 11 Nov 2018 19:05:48 +0000 (-0700)
Subject: runtime/http-io: request body can be #f
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ffca0ac8b0be62928eddfba902efcf828355404f;p=mit-scheme.git

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

diff --git a/src/runtime/http-client.scm b/src/runtime/http-client.scm
index 2cde4a7a1..e73ccf68d 100644
--- a/src/runtime/http-client.scm
+++ b/src/runtime/http-client.scm
@@ -30,10 +30,10 @@ USA.
 (declare (usual-integrations))
 
 (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 c9ca27a8d..12fdeb81f 100644
--- 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))))
 
 (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)