>From 32b9f7252de2d73681a6df47fe19fcb361e9d3a1 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Fri, 21 Jan 2011 16:34:10 +0000 Subject: [PATCH 3/6] Avoid using lookup-header-decl, which isn't exported --- tekuti/mod-lisp.scm | 11 +++++------ 1 files changed, 5 insertions(+), 6 deletions(-) diff --git a/tekuti/mod-lisp.scm b/tekuti/mod-lisp.scm index f644643..3a8b254 100644 --- a/tekuti/mod-lisp.scm +++ b/tekuti/mod-lisp.scm @@ -136,12 +136,11 @@ (begin (display name port) (newline port) (display val port) (newline port)) - (let ((decl (lookup-header-decl name))) - (if (not decl) - (error "Unknown header" name) - (begin - (display (header-decl-name decl) port) (newline port) - ((header-decl-writer decl) val port) (newline port)))))) + (if (not (known-header? name)) + (error "Unknown header" name) + (begin + (display (header->string name) port) (newline port) + ((header-writer name) val port) (newline port))))) (define (write-response-line/mod-lisp code phrase port) (write-header/mod-lisp "Status" -- 1.7.1