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-Tag: mit-scheme-pucked-10.1.2~16^2~64
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=682134f2ed1f8faa768f51f6eb45c0332c605391;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 0b6a83e80..ccbb08399 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 a1fae22a3..223ed37ff 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)