~ruther/guix-local: packages: Output and error ports are line-buffered in ‘patch-and-repack’.

b089f95f144d2b75ebfb603b6f508915db10c601 — Ludovic Courtès 2 years ago 949ee85

packages: Output and error ports are line-buffered in ‘patch-and-repack’.

* guix/packages.scm (patch-and-repack): Add ‘setvbuf’ calls.

Change-Id: I039bb6407263d5172bf0bc716bda6860dc2615fb

patch browse .tar.gz .zip

1 files changed, 5 insertions(+), 0 deletions(-)

M guix/packages.scm

M guix/packages.scm => guix/packages.scm +5 -0

@@ 1055,6 1055,11 @@ specifies modules in scope when evaluating SNIPPET."
                          '("--no-recursion"
                            "--files-from=.file_list"))))
 
+            (let ((line (cond-expand (guile-2.0 _IOLBF)
+                                     (else 'line))))
+              (setvbuf (current-output-port) line)
+              (setvbuf (current-error-port) line))
+
             ;; Encoding/decoding errors shouldn't be silent.
             (fluid-set! %default-port-conversion-strategy 'error)