Browse Source

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

* guix/store.scm (process-stderr) <%stderr-write>: Pass #:buffer-size to
'dump-port'.
version-0.12.0
Ludovic Courtès 6 years ago
parent
commit
6374633b92
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 3
      guix/store.scm

3
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))))

Loading…
Cancel
Save