I'm currently working on a project to gather RSS data using Guile.  I've
been working with both the stable 2.0.3 version and the latest git
repository.  I'm fairly new to Guile, though, so I might be approaching
this the wrong way.

As a test, I wanted to make an HTTP request.  This is a series of commands
I executed in the REPL to accomplish this (using Geiser in Emacs 24):

(use-modules (web request) (web response) (web uri) (rnrs bytevectors))

(define port (socket PF_INET SOCK_STREAM 0))
(define address (addrinfo:addr (car (getaddrinfo "www.google.com" "http"))))
(connect port address)
(define request (build-request (build-uri 'http #:host "www.google.com")))
(write-request request port)
(define response (read-response port))

(read-response ...) consistently fails with Google:

web/http.scm:754:6: In procedure parse-asctime-date:
web/http.scm:754:6: Throw to key `bad-header' with args `(date "-1")'.

The expiration is set to -1 in the headers, and this seems to cause a
problem for the web libraries in Guile.
This same request seems to work well for my own domain (killring.org).

I attempted a very similar series of commands to get RSS data for Google
News:

(define port (socket PF_INET SOCK_STREAM 0))
(define address (addrinfo:addr (car (getaddrinfo "news.google.com"
"http"))))
(connect port address)
(define request (build-request (build-uri 'http #:host "news.google.com"
#:path "/news?pz=1&cf=all&ned=us&hl=en&output=rss")))
(write-request request port)
(define response (read-response port))
(define body-vec (read-response-body response))

In this case, the (read-response-body ...) returns #f, although when I
pulled the data manually, there was XML data present in the body of the
response.

Similarly, when getting RSS information from Slashdot:

(define port (socket PF_INET SOCK_STREAM 0))
(define address (addrinfo:addr (car (getaddrinfo "rss.slashdot.org"
"http"))))
(connect port address)
(define request (build-request (build-uri 'http #:host "rss.slashdot.org"
#:path "/Slashdot/slashdot")))
(write-request request port)
(define response (read-response port))

I get the following error when reading the response:

web/http.scm:814:12: In procedure parse-entity-tag:
web/http.scm:814:12: Throw to key `bad-header' with args `(qstring
"F+oOJMkOlp2n1IUbAJmq+7qCGuk")'.

which I haven't fully tracked down yet.

I have a feeling I'm using the API incorrectly, though I've pored over the
documentation the best I can to figure out how to make these requests and
parse the responses.  Short of writing my own implementation, is there
anything I should be doing to make this work?

Thanks,
Rick