diff options
| author |  Andy Wingo | 2010-11-23 16:08:23 +0100 |
|---|---|---|
| committer |  Andy Wingo | 2010-11-23 21:48:43 +0100 |
| commit | 6df26e1c72f8ab368f95b82bfc622a92ae40b52e (patch) | |
| tree | f8a0e55174b9fc3a303c1fa5869260519e2d3897 | |
| parent | c2d3231e24a8229c60247169ff67db468e16ff95 (diff) | |
| download | tekuti-6df26e1c72f8ab368f95b82bfc622a92ae40b52e.tar.gz tekuti-6df26e1c72f8ab368f95b82bfc622a92ae40b52e.zip | |
fix mod-lisp bugs
* tekuti/mod-lisp.scm (url, read-request/mod-lisp)a
(write-headers/mod-lisp, write-response/mod-lisp): Fix a number of
mod-lisp bugs.
| -rw-r--r-- | tekuti/mod-lisp.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tekuti/mod-lisp.scm b/tekuti/mod-lisp.scm index b6c8faf..41b8630 100644 --- a/tekuti/mod-lisp.scm +++ b/tekuti/mod-lisp.scm @@ -53,7 +53,7 @@ parse-http-method) (define-mod-lisp-header! 'url - "URL" + "url" parse-request-uri) (define-mod-lisp-header! 'server-ip-addr @@ -119,7 +119,7 @@ (build-request #:method (assq-ref meta 'method) #:uri (assq-ref meta 'url) - #:version (assq-ref meta 'url) + #:version (assq-ref meta 'server-protocol) #:headers headers #:meta meta #:port port)))) @@ -145,13 +145,13 @@ (define (write-headers/mod-lisp headers port) (for-each (lambda (pair) - (write-header (car pair) (cdr pair) port)) + (write-header/mod-lisp (car pair) (cdr pair) port)) headers)) (define (write-response/mod-lisp r port) (write-response-line/mod-lisp (response-code r) (response-reason-phrase r) port) - (write-headers (response-headers r) port) + (write-headers/mod-lisp (response-headers r) port) (display "end" port) (newline port) (if (eq? port (response-port r)) r |