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 | |
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.
-rw-r--r-- | module/web/http.scm | 2 | ||||
-rw-r--r-- | module/web/server.scm | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/module/web/http.scm b/module/web/http.scm index 5063aa98e..2ebdb3bf6 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -320,7 +320,7 @@ (bad-header-component 'quality str)))) (define (valid-quality? q) - (and (non-negative-integer? q) (<= 1000 q))) + (and (non-negative-integer? q) (<= q 1000))) (define (write-quality q port) (define (digit->char d) 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)) |