[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-17-ged3e8b
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-17-ged3e8b8 |
Date: |
Mon, 07 Jan 2013 22:21:35 +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=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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-17-ged3e8b8,
Andy Wingo <=