summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/web/http.scm2
-rw-r--r--module/web/server.scm6
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))