url-port can be #f when no port is specified

svn: r3802 original commit: d5294823a2160c9cf99db2e0f6481e29f741784a
2006-07-25 06:49:41 +00:00 · 2006-07-25 06:49:41 +00:00 · 66f06dd4f6
commit 66f06dd4f6
parent f1ab9853dc
1 changed files with 1 additions and 3 deletions
--- 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)