From 07ae424595f99562c2a400e7c047846596b2e8d5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 15 Apr 2002 14:24:20 +0000 Subject: [PATCH] . original commit: fde6471ca624dd06a99f56777c5f856fdd0ca8c7 --- collects/net/url-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss index 2879ffe..fcf86ef 100644 --- a/collects/net/url-unit.ss +++ b/collects/net/url-unit.ss @@ -143,11 +143,11 @@ (url-query url) (url-fragment url)))))) (for-each (lambda (s) (display s client->server) - (newline client->server)) + (display "\r\n" client->server)) (cons (format "GET ~a HTTP/1.0" access-string) (cons (format "Host: ~a" (url-host url)) strings)))) - (newline client->server) + (display "\r\n" client->server) (tcp-abandon-port client->server) server->client)]))