build-self: Silent Guile warnings while computing the derivation.

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

* build-aux/build-self.scm (build-program): Wrap 'guix-derivation' call
in 'parameterize'.
This commit is contained in:
Ludovic Courtès 2021-03-19 21:33:37 +01:00
parent b93d7daeaf
commit ef2b9322fa
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -356,14 +356,17 @@ (define spin
(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))))