bug#13095: http-get: Throw to key `bad-response' with args `("EOF while reading response body: ...)'

[Nikita Karetnikov]

Hi,

I'm using Guile 2.0.7. 'http-get' fails to download the file.

scheme@(guile-user)> (http-get (string->uri
"http://citylan.dl.sourceforge.net/project/libusb/libusb-1.0/libusb-1.0.9/libusb-1.0.9.tar.bz2";))
ERROR: In procedure get-bytevector-all:
ERROR: Throw to key `bad-response' with args `("EOF while reading
response body: ~a bytes of ~a" (12731 421971))'.

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> ,bt
In web/client.scm:
    131:4  1 (http-get #<<uri> scheme: http userinfo: #f host: "cit…> …)
In unknown file:
           0 (get-bytevector-all #<input: r6rs-custom-binary-input-p…>)

$ wget --spider
http://citylan.dl.sourceforge.net/project/libusb/libusb-1.0/libusb-1.0.9/libusb-1.0.9.tar.bz2
Spider mode enabled. Check if remote file exists.

[...]

Length: 421971 (412K) [application/octet-stream]
Remote file exists.

Also, check this thread. [1]

Nikita

[1] https://lists.gnu.org/archive/html/bug-guix/2012-12/msg00033.html