diff options
author | Andy Wingo <wingo@pobox.com> | 2011-01-08 20:50:46 -0800 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-01-08 20:50:46 -0800 |
commit | 0acc595b943dedf6bf429e21e7b69aa2fcec767a (patch) | |
tree | 3f369d1d3345c88f0f052a54fb0a51b656fe1927 /examples/web/debug-sxml.scm | |
parent | 32de1aa783c65a7c489c924b3fa41ee08187c15b (diff) | |
download | guile-0acc595b943dedf6bf429e21e7b69aa2fcec767a.tar.gz |
(web http): keys are always symbols
* module/web/http.scm (parse-media-type): Parse media types as symbols.
(parse-key-value-list, parse-param-component, parse-param-list):
Change kons to val-parser. Always parse keys as symbols, and always
either cons, if there is a val, or just have the key, if there is no
val. Easier to explain and just as correct.
(declare-param-list-header!, declare-key-value-list-header!): Adapt to
key-list and param-list kons change.
("Cache-Control", "Pragma", "Transfer-Encoding", "Accept", "Expect")
("TE"): Likewise, adapt.
("Content-Type"): Param keys are symbols.
Diffstat (limited to 'examples/web/debug-sxml.scm')
-rw-r--r-- | examples/web/debug-sxml.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/web/debug-sxml.scm b/examples/web/debug-sxml.scm index 4e6afc271..724a9bd6c 100644 --- a/examples/web/debug-sxml.scm +++ b/examples/web/debug-sxml.scm @@ -30,8 +30,8 @@ (status 200) (title default-title) (doctype html5-doctype) - (content-type-params '(("charset" . "utf-8"))) - (content-type "text/html") + (content-type-params '((charset . "utf-8"))) + (content-type 'text/html) (extra-headers '()) (sxml (and body (templatize #:title title #:body body)))) (values (build-response |