.

original commit: ac621fe1f57e6e6a1b3e4410b6404a7a75166966
2004-04-25 15:03:01 +00:00 · 2004-04-25 15:03:01 +00:00 · 4ee5037950
commit 4ee5037950
parent 0880808d8f
1 changed files with 1 additions and 2 deletions
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@ -125,8 +125,7 @@
                                  (url-query url)
                                  (url-fragment url))))))
              (for-each (lambda (s)
-                          (display s client->server)
-                          (display "\r\n" client->server))
+                          (display (string-append s "\r\n") client->server))
                        (cons (format "~a ~a HTTP/1.0" (if get? "GET" "POST") access-string)
                              (cons (format "Host: ~a" (url-host url))
 				    (if post-data