(require-library "macro.ss")
(require-library "files.ss")

(define-signature mzlib:url^
  ((struct url (scheme host port path params query fragment))
   (struct mime-header (name value))
   get-pure-port			; url [x list (str)] -> in-port
   get-impure-port			; url [x list (str)] -> in-port
   display-pure-port			; in-port -> ()
   purify-port				; in-port -> list (mime-header)
   netscape/string->url			; (string -> url)
   string->url				; str -> url
   url->string
   call/input-url			; url x (url -> in-port) x
					; (in-port -> T)
					; [x list (str)] -> T
   combine-url/relative))		; url x str -> url
