>From beb163df99803dcebe8b7fcf0fb4481a1a0f7f8b Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Fri, 21 Jan 2011 16:34:40 +0000 Subject: [PATCH 4/6] Update to new parse-header signature, which only returns one value --- tekuti/mod-lisp.scm | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/tekuti/mod-lisp.scm b/tekuti/mod-lisp.scm index 3a8b254..f3e36a4 100644 --- a/tekuti/mod-lisp.scm +++ b/tekuti/mod-lisp.scm @@ -112,9 +112,10 @@ (acons (car sym-and-parser) ((cdr sym-and-parser) v) meta)) - (call-with-values (lambda () (parse-header k v)) - (lambda (k v) - (lp (acons k v headers) meta))))))))) + (lp (acons (string->header k) + (parse-header (string->header k) v) + headers) + meta))))))) (define (read-request/mod-lisp port) ;; See the note in (web request) regarding chars, bytes, and strings -- 1.7.1