mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

HTTP: Fix qstring writing of cache-extension values

Browse source 
* module/web/http.scm ("Cache-Control"): Write string values using the
  default val writer, to get quoting correct.

* test-suite/tests/web-http.test (pass-if-round-trip): New helper.
  ("general headers"): Check that cache-extensions round trip properly.
This commit is contained in:
Andy Wingo 2011-12-22 08:18:05 -05:00
parent 321770b2a3
commit 61fe8eafc2
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/http.scm
View file

@ -1261,7 +1261,7 @@ phrase\"."
(or (not v) (string? v)))))
(lambda (k v port)
(cond
((string? v) (display v port))
((string? v) (default-val-writer k v port))
((pair? v)
(display #\" port)
(write-header-list v port)