From 66f06dd4f68bdb657f08a9e3c0c3134fb9031a0a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 25 Jul 2006 06:49:41 +0000 Subject: [PATCH] url-port can be #f when no port is specified svn: r3802 original commit: d5294823a2160c9cf99db2e0f6481e29f741784a --- collects/net/url-unit.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss index ca31115..b1aef3c 100644 --- a/collects/net/url-unit.ss +++ b/collects/net/url-unit.ss @@ -126,9 +126,7 @@ (display "\r\n" client->server)) (println (if get? "GET " "POST ") access-string " HTTP/1.0") (println "Host: " (url-host url) - (let ([p (url-port url)]) - (if (equal? p (url->default-port url)) - "" (format ":~a" p)))) + (let ([p (url-port url)]) (if p (format ":~a" p) ""))) (when post-data (println "Content-Length: " (bytes-length post-data))) (for-each println strings) (println)