resolve.scm

(define (http:resolve url)

  (max-redirect-depth 0)

  (let* ((uri (uri-reference url))
         (request (make-request uri: uri headers: basic-headers)))
    (display "calling\n")

    (handle-exceptions exn
      (lambda (exn)
        (print-error-message exn)
        ;;        (display "lkajsdlkajsdlaskj\n")
        ;;        (printf "exn: ~s~%" exn)
        ;;        (printf "exn.response: ~s~%" (exn-response exn))
        (flush-output)
        'done)

      (begin
        (print "before call")
        (call-with-input-request* request #f
                                  (lambda (p r)
                                    (print "got something")
                                    (print (response-headers r))
                                    'done))
        (print "after call")))))