01/02: http-client: No 'setvbuf' for non-file ports.

[Ludovic Court�s]

civodul pushed a commit to branch master
in repository guix.

commit 409e4ac6e3d86491901a9c0bb422b0415c906964
Author: Ludovic Courtès <address@hidden>
Date:   Wed Mar 16 10:20:45 2016 +0100

    http-client: No 'setvbuf' for non-file ports.
    
    * guix/http-client.scm (http-fetch): Do not call 'setvbuf' on non-file
    ports.
---
 guix/http-client.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/guix/http-client.scm b/guix/http-client.scm
index 2569382..97a1e26 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -243,7 +243,7 @@ Raise an '&http-get-error' condition if downloading fails."
                                                      (base64-encode
                                                       (string->utf8 str))))))
                          (_ '()))))
-      (unless buffered?
+      (unless (or buffered? (not (file-port? port)))
         (setvbuf port _IONBF))
       (let*-values (((resp data)
                      ;; Try hard to use the API du jour to get an input port.