minor improvement

svn: r12931
2008-12-23 09:02:44 +00:00 · 2008-12-23 09:02:44 +00:00 · c11196839b
commit c11196839b
parent 44aa4c25ef
1 changed files with 3 additions and 7 deletions
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@ -378,13 +378,9 @@
                           (eq? 'windows (file-url-path-convention-type))
                           (not (equal? host "")))])
       (when win-file?
-         (if (equal? "" port)
-           (set! path (string-append host ":" path))
-           (set! path (if path
-                        (if host
-                          (string-append host "/" path)
-                          path)
-                        host)))
+         (set! path (cond [(equal? "" port) (string-append host ":" path)]
+                          [(and path host) (string-append host "/" path)]
+                          [else (or path host)]))
         (set! port #f)
         (set! host ""))
       (let* ([scheme   (and scheme (string-downcase scheme))]