From 409e4ac6e3d86491901a9c0bb422b0415c906964 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 16 Mar 2016 10:20:45 +0100 Subject: 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 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/http-client.scm b/guix/http-client.scm index 25693824ed..97a1e26d3e 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. -- cgit v1.2.3