From 6df26e1c72f8ab368f95b82bfc622a92ae40b52e Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Tue, 23 Nov 2010 16:08:23 +0100
Subject: 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.
---
 tekuti/mod-lisp.scm | 8 ++++----
 1 file 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
-- 
cgit v1.2.3-54-g00ecf