From ef2b9322fae1d03bf639924d12214b0f58c11054 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 19 Mar 2021 21:33:37 +0100
Subject: build-self: Silent Guile warnings while computing the derivation.

In particular, silence the Guile-Git autoload warnings introduced by
c1940fde43c7aca37d67589cc5cb248086d17d56.

* build-aux/build-self.scm (build-program): Wrap 'guix-derivation' call
in 'parameterize'.
---
 build-aux/build-self.scm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'build-aux')

diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index 6a3b9c83d4..dd845d1596 100644
--- a/build-aux/build-self.scm
+++ b/build-aux/build-self.scm
@@ -356,14 +356,17 @@ interface (FFI) of Guile.")
 
                            (display
                             (and=>
-                             (run-with-store store
-                               (guix-derivation source version
-                                                #$guile-version
-                                                #:channel-metadata
-                                                '#$channel-metadata
-                                                #:pull-version
-                                                #$pull-version)
-                               #:system system)
+                             ;; Silence autoload warnings and the likes.
+                             (parameterize ((current-warning-port
+                                             (%make-void-port "w")))
+                               (run-with-store store
+                                 (guix-derivation source version
+                                                  #$guile-version
+                                                  #:channel-metadata
+                                                  '#$channel-metadata
+                                                  #:pull-version
+                                                  #$pull-version)
+                                 #:system system))
                              derivation-file-name))))))
                   #:module-path (list source))))
 
-- 
cgit v1.2.3