From f23cd71100ef2252497d07d4d0d89d8f9fd47e67 Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 21 Jul 2004 18:56:03 +0000 Subject: [PATCH] use symbol to search in browser headers --- scheme/httpd/surflets/bindings.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/bindings.scm b/scheme/httpd/surflets/bindings.scm index 3ad33d9..b1ce0d7 100644 --- a/scheme/httpd/surflets/bindings.scm +++ b/scheme/httpd/surflets/bindings.scm @@ -9,8 +9,9 @@ (define *cache-lock* (make-lock)) (define (get-bindings surflet-request) + (format #t "** headers: ~S~%" (surflet-request-headers surflet-request)) (let ((request-method (surflet-request-method surflet-request)) - (content-type (assoc "content-type" + (content-type (assoc 'content-type (surflet-request-headers surflet-request)))) ;; Check if we the content-type is the one we support. If there's