diff options
-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)) |