Probably a bug in https-get...

[Amirouche Boubekki]

Héllo again,

I'm trying hit the hackernews API hosted on firebase and I get an error 
when I try to use
streaming with guile 2.0.11

This works correctly:

```
(receive (response body) (https-get 
"https://hacker-news.firebaseio.com/v0/maxitem.json";)
  (pk (string->number (bytevector->string body "utf-8"))))
```

But the following, with #:streaming set to true doesn't work:

```
(receive (response body) (https-get 
"https://hacker-news.firebaseio.com/v0/maxitem.json"; #:streaming? #true)
  (pk (read-string body)))
```

Here is the backtrace:

```
In unknown file:
   ?: 4 [load-compiled/vm 
"/home/amirouche/.cache/guile/ccache/2.0-LE-8-2.0/home/amirouche/src/guile/hyper/src/buggy-https-get.scm.go"]
In /home/amirouche/src/guile/hyper/src/buggy-https-get.scm:
  90: 3 [#<procedure 1a33420 ()>]
In ice-9/rdelim.scm:
 159: 2 [read-string #<input: r6rs-custom-binary-input-port 1aaa680> #f]
 143: 1 [read-string! 
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" 
...]
In unknown file:
   ?: 0 [read-char #<input: r6rs-custom-binary-input-port 1aaa680>]

ERROR: In procedure read-char:
ERROR: Throw to key `bad-response' with args `("EOF while reading 
response body: ~a bytes of ~a" (0 8))'.
```

I attached an example script to this mail.

Thanks in advance!

--
Amirouche ~ amz3 ~ http://www.hyperdev.fr

buggy-https-get.scm
Description: Text document