suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: fde6471ca624dd06a99f56777c5f856fdd0ca8c7
This commit is contained in:
Matthew Flatt 2002-04-15 14:24:20 +00:00
parent 829bed3e34
commit 07ae424595
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/url-unit.ss
View File

@ -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)]))