resolve.scm

(define (http:resolve url)

  (define resolved-url
    (make-parameter (uri-reference url)))

  (define (update-resolved-url r)
    (resolved-url (request-uri r))
    (default-prepare-request r))

  (parameterize ((prepare-request update-resolved-url))
    (let ((request (make-request uri: (resolved-url) headers: basic-headers)))
      (call-with-input-request request #f (lambda _ #f))
      (uri->string (resolved-url)))))