04/06: store: Increase buffering for the '%stderr-write' upcall.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 6374633b9205f60ad0e7ff42bbf39e441ae2f328
Author: Ludovic Courtès <address@hidden>
Date:   Thu Dec 1 23:09:34 2016 +0100

    store: Increase buffering for the '%stderr-write' upcall.
    
    * guix/store.scm (process-stderr) <%stderr-write>: Pass #:buffer-size to
    'dump-port'.
---
 guix/store.scm |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/store.scm b/guix/store.scm
index 689a94c..a669011 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -470,7 +470,8 @@ encoding conversion errors."
            ;; Write a byte stream to USER-PORT.
            (let* ((len (read-int p))
                   (m   (modulo len 8)))
-             (dump-port p user-port len)
+             (dump-port p user-port len
+                        #:buffer-size (if (<= len 16384) 16384 65536))
              (unless (zero? m)
                ;; Consume padding, as for strings.
                (get-bytevector-n p (- 8 m))))