summaryrefslogtreecommitdiff
path: root/module/web/server.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-11-23 16:02:21 +0100
committerAndy Wingo <wingo@pobox.com>2010-11-23 16:02:21 +0100
commit612aa5bee87bf85b908ed26e73d496af6f0d8520 (patch)
treec900a47df5f4da25268a346d4f8fe59f0e468d57 /module/web/server.scm
parenta4342ba82655deecc8c001d7f457ebe8db01354e (diff)
downloadguile-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.scm6
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))