[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-97-g61
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-97-g612aa5b |
Date: |
Tue, 23 Nov 2010 15:07:09 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=612aa5bee87bf85b908ed26e73d496af6f0d8520
The branch, master has been updated
via 612aa5bee87bf85b908ed26e73d496af6f0d8520 (commit)
from a4342ba82655deecc8c001d7f457ebe8db01354e (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 612aa5bee87bf85b908ed26e73d496af6f0d8520
Author: Andy Wingo <address@hidden>
Date: Tue Nov 23 16:02:21 2010 +0100
fix web server bugs
* module/web/http.scm (valid-quality?):
* module/web/server.scm (sanitize-response): Fix a couple bugs.
-----------------------------------------------------------------------
Summary of changes:
module/web/http.scm | 2 +-
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 5063aa9..2ebdb3b 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 0d5bd40..f8ebf18 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))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-13-97-g612aa5b,
Andy Wingo <=