Ticket #1210: intarweb-changes.diff

File intarweb-changes.diff, 1.6 KB (added by rsenior, 6 years ago)
  • intarweb.scm

     
    4242   header-parsers header-unparsers unparse-header unparse-headers read-headers
    4343   safe-methods safe? idempotent-methods idempotent? keep-alive? response-class
    4444   etag=? etag=-weakly? etag-matches? etag-matches-weakly?
    45 
     45
    4646   make-request request? request-major request-major-set!
    4747   request-minor request-minor-set!
    4848   request-method request-method-set! request-uri request-uri-set!
    4949   request-headers request-headers-set! request-port request-port-set!
    50    update-request set-request! request-has-message-body?
     50   request-conn-factory update-request set-request! request-has-message-body?
    5151
    5252   request-parsers read-request request-unparsers write-request
    5353   finish-request-body http-0.9-request-parser http-1.x-request-parser
     
    555555           (make-property-condition 'exn 'message msg 'arguments args))))
    556556
    557557(defstruct request
    558   (method 'GET) uri (major 1) (minor 1) (headers (make-headers '())) port)
     558    (method 'GET) uri (major 1) (minor 1) (headers (make-headers '())) port (conn-factory #f))
    559559
    560560;; Perhaps we should have header parsers indexed by version or
    561561;; something like that, so you can define the maximum version. Useful
     
    787787;; List of HTTP status codes based on:
    788788;; http://www.iana.org/assignments/http-status-codes/http-status-codes.xml
    789789(define http-status-codes
    790   (make-parameter
     790  (make-parameter
    791791   `((continue . (100 . "Continue"))
    792792     (switching-protocols . (101 . "Switching Protocols"))
    793793     (processing . (102 . "Processing"))