Changeset 11737 in project


Ignore:
Timestamp:
08/24/08 18:44:16 (13 years ago)
Author:
sjamaan
Message:

Fix silly mistake

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/intarweb.scm

    r11736 r11737  
    376376;; XXX This actually unparses anything >= HTTP/1.1
    377377(define (http-1.x-response-unparser request response)
    378   (and-let* (((or (> (request-major response) 1)
    379                   (and (= (request-major response) 1)
    380                        (> (request-minor response) 0))))
     378  (and-let* (((or (> (response-major response) 1)
     379                  (and (= (response-major response) 1)
     380                       (> (response-minor response) 0))))
    381381             (o (response-port response)))
    382382    (write-response-line request response)
Note: See TracChangeset for help on using the changeset viewer.