[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-130-g4
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-130-g4164be3 |
Date: |
Sun, 05 Dec 2010 19:20:21 +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=4164be30d3a198c3c9cc1e464d01cb37dc8f8fc2
The branch, master has been updated
via 4164be30d3a198c3c9cc1e464d01cb37dc8f8fc2 (commit)
from e8c44a044f643671a9e5779048e422d16f67d422 (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 4164be30d3a198c3c9cc1e464d01cb37dc8f8fc2
Author: Andy Wingo <address@hidden>
Date: Sun Dec 5 20:24:14 2010 +0100
http doesn't keep-alive requests for which there was an error
* module/web/server/http.scm (keep-alive?): Don't keep the client around
if there is an error.
-----------------------------------------------------------------------
Summary of changes:
module/web/server/http.scm | 14 ++++++++------
1 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/module/web/server/http.scm b/module/web/server/http.scm
index 150b73e..1eefc0a 100644
--- a/module/web/server/http.scm
+++ b/module/web/server/http.scm
@@ -122,12 +122,14 @@
(define (keep-alive? response)
(let ((v (response-version response)))
- (case (car v)
- ((1)
- (case (cdr v)
- ((1) #t)
- ((0) (memq 'keep-alive (response-connection response)))))
- (else #f))))
+ (and (or (< (response-code response) 400)
+ (= (response-code response) 404))
+ (case (car v)
+ ((1)
+ (case (cdr v)
+ ((1) (not (memq 'close (response-connection response))))
+ ((0) (memq 'keep-alive (response-connection response)))))
+ (else #f)))))
;; -> 0 values
(define (http-write server client response 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-130-g4164be3,
Andy Wingo <=