[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-81-g55e29bb

[Mark H Weaver]

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=55e29bb55bcc0e128a962ccae9e26876ccfab6c6

The branch, stable-2.0 has been updated
       via  55e29bb55bcc0e128a962ccae9e26876ccfab6c6 (commit)
       via  9c85fd02218705033f18befafa04d9c8c6b76297 (commit)
       via  112fc7c2a554a93a63f4cac1419f644f907431db (commit)
      from  c4b7ba688aba07254059f830f972756bcad0eb9b (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 55e29bb55bcc0e128a962ccae9e26876ccfab6c6
Author: Mark H Weaver <address@hidden>
Date:   Tue Sep 10 01:39:52 2013 -0400

    web client: HTTP methods are symbols, not strings.
    
    * module/web/client.scm (request, http-get, http-head, http-post,
      http-put, http-delete, http-trace, http-options): HTTP methods are
      symbols.

commit 9c85fd02218705033f18befafa04d9c8c6b76297
Author: Alexandru Cojocaru <address@hidden>
Date:   Tue Aug 27 15:59:39 2013 +0200

    Fix extend-request to preserve method and meta.
    
    * module/web/client.scm (extend-request): Preserve method and meta.

commit 112fc7c2a554a93a63f4cac1419f644f907431db
Author: Mark H Weaver <address@hidden>
Date:   Mon Sep 9 22:42:36 2013 -0400

    psyntax: cite the paper that psyntax is based on.
    
    * module/ice-9/psyntax.scm: cite the paper.

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

Summary of changes:
 module/ice-9/psyntax.scm |    6 ++++++
 module/web/client.scm    |   25 ++++++++++++++-----------
 2 files changed, 20 insertions(+), 11 deletions(-)

diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index d63861c..576fc3f 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -43,6 +43,12 @@
 ;;; revision control logs corresponding to this file: 2009, 2010.
 
 
+;;; This code is based on "Syntax Abstraction in Scheme"
+;;; by R. Kent Dybvig, Robert Hieb, and Carl Bruggeman.
+;;; Lisp and Symbolic Computation 5:4, 295-326, 1992.
+;;; <http://www.cs.indiana.edu/~dyb/pubs/LaSC-5-4-pp295-326.pdf>
+
+
 ;;; This file defines the syntax-case expander, macroexpand, and a set
 ;;; of associated syntactic forms and procedures.  Of these, the
 ;;; following are documented in The Scheme Programming Language,
diff --git a/module/web/client.scm b/module/web/client.scm
index 24132c6..a018ee1 100644
--- a/module/web/client.scm
+++ b/module/web/client.scm
@@ -103,11 +103,14 @@
               (loop (cdr addresses))))))))
 
 (define (extend-request r k v . additional)
-  (let ((r (build-request (request-uri r) #:version (request-version r)
+  (let ((r (build-request (request-uri r)
+                          #:method (request-method r)
+                          #:version (request-version r)
                           #:headers
                           (assoc-set! (copy-tree (request-headers r))
                                       k v)
-                          #:port (request-port r))))
+                          #:port (request-port r)
+                          #:meta (request-meta r))))
     (if (null? additional)
         r
         (apply extend-request r additional))))
@@ -204,7 +207,7 @@ as is the case by default with a request returned by 
`build-request'."
 (define* (request uri #:key
                   (body #f)
                   (port (open-socket-for-uri uri))
-                  (method "GET")
+                  (method 'GET)
                   (version '(1 . 1))
                   (keep-alive? #f)
                   (headers '())
@@ -227,7 +230,7 @@ as is the case by default with a request returned by 
`build-request'."
         (force-output (request-port request))
         (let ((response (read-response port)))
           (cond
-           ((equal? (request-method request) "HEAD")
+           ((eq? (request-method request) 'HEAD)
             (unless keep-alive?
               (close-port port))
             (values response #f))
@@ -282,7 +285,7 @@ true)."
     (issue-deprecation-warning
      "The #:extra-headers argument to http-get has been renamed to #:headers. "
      "Please update your code."))
-  (request uri #:method "GET" #:body body
+  (request uri #:method 'GET #:body body
            #:port port #:version version #:keep-alive? keep-alive?
            #:headers headers #:decode-body? decode-body?
            #:streaming? streaming?))
@@ -319,7 +322,7 @@ true)."
              #:streaming? streaming?)))
 
 (define-http-verb http-head
-  "HEAD"
+  'HEAD
   "Fetch message headers for the given URI using the HTTP \"HEAD\"
 method.
 
@@ -332,7 +335,7 @@ requests do not have a body.  The second value is only 
returned so that
 other procedures can treat all of the http-foo verbs identically.")
 
 (define-http-verb http-post
-  "POST"
+  'POST
   "Post data to the given URI using the HTTP \"POST\" method.
 
 This function is similar to ‘http-get’, except it uses the \"POST\"
@@ -342,7 +345,7 @@ arguments that are accepted by this function.
 Returns two values: the resulting response, and the response body.")
 
 (define-http-verb http-put
-  "PUT"
+  'PUT
   "Put data at the given URI using the HTTP \"PUT\" method.
 
 This function is similar to ‘http-get’, except it uses the \"PUT\"
@@ -352,7 +355,7 @@ arguments that are accepted by this function.
 Returns two values: the resulting response, and the response body.")
 
 (define-http-verb http-delete
-  "DELETE"
+  'DELETE
   "Delete data at the given URI using the HTTP \"DELETE\" method.
 
 This function is similar to ‘http-get’, except it uses the \"DELETE\"
@@ -362,7 +365,7 @@ arguments that are accepted by this function.
 Returns two values: the resulting response, and the response body.")
 
 (define-http-verb http-trace
-  "TRACE"
+  'TRACE
   "Send an HTTP \"TRACE\" request.
 
 This function is similar to ‘http-get’, except it uses the \"TRACE\"
@@ -372,7 +375,7 @@ arguments that are accepted by this function.
 Returns two values: the resulting response, and the response body.")
 
 (define-http-verb http-options
-  "OPTIONS"
+  'OPTIONS
   "Query characteristics of an HTTP resource using the HTTP \"OPTIONS\"
 method.
 


hooks/post-receive
-- 
GNU Guile