diff options
Diffstat (limited to 'module/web/request.scm')
-rw-r--r-- | module/web/request.scm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/module/web/request.scm b/module/web/request.scm index adf1dd287..84bc36e9b 100644 --- a/module/web/request.scm +++ b/module/web/request.scm @@ -1,6 +1,6 @@ ;;; HTTP request objects -;; Copyright (C) 2010 Free Software Foundation, Inc. +;; Copyright (C) 2010, 2011 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -142,13 +142,9 @@ (let ((h (car headers))) (if (pair? h) (let ((k (car h)) (v (cdr h))) - (if (symbol? k) - (if (not (valid-header? k v)) - (bad-request "Bad value for header ~a: ~s" k v)) - (if (not (and (string? k) (string? v))) - (bad-request "Unknown header not a pair of strings: ~s" - h))) - (validate-headers (cdr headers))) + (if (valid-header? k v) + (validate-headers (cdr headers)) + (bad-request "Bad value for header ~a: ~s" k v))) (bad-request "Header not a pair: ~a" h))) (if (not (null? headers)) (bad-request "Headers not a list: ~a" headers)))) |