diff options
author | Andy Wingo <wingo@pobox.com> | 2010-11-23 16:02:21 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-11-23 16:02:21 +0100 |
commit | 612aa5bee87bf85b908ed26e73d496af6f0d8520 (patch) | |
tree | c900a47df5f4da25268a346d4f8fe59f0e468d57 /module/web/server.scm | |
parent | a4342ba82655deecc8c001d7f457ebe8db01354e (diff) | |
download | guile-612aa5bee87bf85b908ed26e73d496af6f0d8520.tar.gz |
fix web server bugs
* module/web/http.scm (valid-quality?):
* module/web/server.scm (sanitize-response): Fix a couple bugs.
Diffstat (limited to 'module/web/server.scm')
-rw-r--r-- | module/web/server.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/web/server.scm b/module/web/server.scm index 0d5bd40da..f8ebf1833 100644 --- a/module/web/server.scm +++ b/module/web/server.scm @@ -190,9 +190,9 @@ (values (let ((rlen (response-content-length response)) (blen (bytevector-length body))) (cond - ((rlen) (if (= rlen blen) - response - (error "bad content-length" rlen blen))) + (rlen (if (= rlen blen) + response + (error "bad content-length" rlen blen))) ((zero? blen) response) (else (extend-response response 'content-length blen)))) body)) |