[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-130-g4164be3

[Andy Wingo]

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