[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-17-ged3e8b8

[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=ed3e8b8e06adaaa1df5085a0f730d42efa3f5c30

The branch, stable-2.0 has been updated
       via  ed3e8b8e06adaaa1df5085a0f730d42efa3f5c30 (commit)
       via  4dbac5e08b13e4aa4ddb40e16034605757057290 (commit)
      from  9f17d967c9b108f856776c035462e93017a6e7e2 (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 ed3e8b8e06adaaa1df5085a0f730d42efa3f5c30
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 7 23:21:16 2013 +0100

    http-get: don't shutdown write end of socket
    
    * module/web/http.scm ("Connection"): Write the "close" token in
      lower-case.
    
    * module/web/client.scm (http-get): Don't shutdown the writing side of
      the pipe if we are not doing a keepalive, as this may prevent the
      request from being sent at all.  Prevented http://friendfeed.com/ from
      being correctly fetched.

commit 4dbac5e08b13e4aa4ddb40e16034605757057290
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 7 23:19:10 2013 +0100

    Fix partial commit of documentation update
    
    * doc/ref/api-procedures.texi (Compiled Procedures): Fix
      partially-committed doc update.

-----------------------------------------------------------------------

Summary of changes:
 doc/ref/api-procedures.texi |   22 +++++++++++++---------
 module/web/client.scm       |    2 --
 module/web/http.scm         |   16 +++++++++++++---
 3 files changed, 26 insertions(+), 14 deletions(-)

diff --git a/doc/ref/api-procedures.texi b/doc/ref/api-procedures.texi
index d77a2bd..e749fdc 100644
--- a/doc/ref/api-procedures.texi
+++ b/doc/ref/api-procedures.texi
@@ -274,7 +274,9 @@ sense at certain points in the program, delimited by these
 Return an association list describing the arguments that @var{program} 
accepts, or
 @code{#f} if the information cannot be obtained.
 
-For example:
+The alist keys that are currently defined are `required', `optional',
+`keyword', `allow-other-keys?', and `rest'.  For example:
+
 @example
 (program-arguments-alist
  (lambda* (a b #:optional c #:key (d 1) #:rest e)
@@ -285,17 +287,19 @@ For example:
  (allow-other-keys? . #f)
  (rest . d))
 @end example
address@hidden deffn
 
-The alist keys that are currently defined are `required', `optional',
-`keyword', `allow-other-keys?', and `rest'.
address@hidden {Scheme Procedure} program-lambda-list program [ip]
+Return a representation of the arguments of @var{program} as a lambda
+list, or @code{#f} if this information is not available.
 
address@hidden {Scheme Procedure} program-lambda-list program [ip]
-Accessors for a representation of the arguments of a program, with both
-names and types (ie. either required, optional or keywords)
+For example:
 
address@hidden returns this information in the form of
-an association list while @code{program-lambda-list} returns the same
-information in a form similar to a lambda definition.
address@hidden
+(program-lambda-alist
+ (lambda* (a b #:optional c #:key (d 1) #:rest e)
+   #t)) @result{}
address@hidden example
 @end deffn
 
 @node Optional Arguments
diff --git a/module/web/client.scm b/module/web/client.scm
index 6aedb75..d3502cc 100644
--- a/module/web/client.scm
+++ b/module/web/client.scm
@@ -129,8 +129,6 @@ Otherwise it will be returned as a bytevector."
                                                 extra-headers)))))
     (write-request req port)
     (force-output port)
-    (if (not keep-alive?)
-        (shutdown port 1))
     (let* ((res (read-response port))
            (body (read-response-body res)))
       (if (not keep-alive?)
diff --git a/module/web/http.scm b/module/web/http.scm
index 216fddd..976f0fb 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -1,6 +1,6 @@
 ;;; HTTP messages
 
-;; Copyright (C)  2010, 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C)  2010, 2011, 2012, 2013 Free Software Foundation, Inc.
 
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -1307,9 +1307,19 @@ treated specially, and is just returned as a plain 
string."
 ;; Connection = "Connection" ":" 1#(connection-token)
 ;; connection-token  = token
 ;; e.g.
-;;     Connection: close, foo-header
+;;     Connection: close, Foo-Header
 ;; 
-(declare-header-list-header! "Connection")
+(declare-header! "Connection"
+  split-header-names
+  list-of-header-names?
+  (lambda (val port)
+    (write-list val port
+                (lambda (x port)
+                  (display (if (eq? x 'close)
+                               "close"
+                               (header->string x))
+                           port))
+                ", ")))
 
 ;; Date  = "Date" ":" HTTP-date
 ;; e.g.


hooks/post-receive
-- 
GNU Guile