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