 the http-port. The
  ; port is positioned after the empty line that terminates the headers.
  (define (read-headers http-port resp-code init-resp-headers)
    (let ((headers
	   (with-exception-handler
            (lambda (exc)
              (die-again exc 'BAD-HEADER init-resp-headers http-port))
            (lambda ()
              (<a href="mime.html#codefunc52288">MIME:read-headers</a> http-port)))))
      (response-handler resp-code (append init-resp-headers headers)
			 http-port)))

  ; parse the re