summaryrefslogtreecommitdiff
path: root/module/web/request.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/web/request.scm')
-rw-r--r--module/web/request.scm12
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))))