From b089f95f144d2b75ebfb603b6f508915db10c601 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 11 Dec 2023 17:59:44 +0100
Subject: [PATCH] =?UTF-8?q?packages:=20Output=20and=20error=20ports=20are?=
 =?UTF-8?q?=20line-buffered=20in=20=E2=80=98patch-and-repack=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

Change-Id: I039bb6407263d5172bf0bc716bda6860dc2615fb
---
 guix/packages.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/packages.scm b/guix/packages.scm
index 0966b4a9de888fc4738b127295e1a1f3f723e048..d260a48767320cda0ba4581a4a302c8e63655500 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -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)