fix web server bugs

* module/web/http.scm (valid-quality?):
* module/web/server.scm (sanitize-response): Fix a couple bugs.

diff --git a/module/web/http.scm b/module/web/http.scm
index 5063aa9..2ebdb3b 100644 (file)
--- 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 0d5bd40..f8ebf18 100644 (file)
--- 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))