diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-12-22 08:18:05 -0500 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-12-22 08:18:05 -0500 |
| commit | 61fe8eafc236e2f76259e987d66f43e97fc1eed4 (patch) | |
| tree | 6ce00bd3e000ad10b0dd16376fe0bd2f8c4beef2 /module | |
| parent | 321770b2a3d7b43a7f24e5a1b3ed8bb36c411ffe (diff) | |
HTTP: Fix qstring writing of cache-extension values
* 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.
Diffstat (limited to 'module')
| -rw-r--r-- | module/web/http.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/web/http.scm b/module/web/http.scm index 20ea2aa6b..afe70a7fd 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -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) |