oops, search-replace gone awry

parent 00d5c48e
......@@ -104,7 +104,7 @@
;; A very naive (and incorrect) version of header parsing.
;; A demo kludge for sure ;P
(define accept-headers
(string-split (match (assoc 'accept (request-accept-headers req))
(string-split (match (assoc 'accept (request-headers req))
[(cons 'accept str) str]
[#f ""])
","))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment