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,6 +356,9 @@ (define spin
(display (display
(and=> (and=>
;; Silence autoload warnings and the likes.
(parameterize ((current-warning-port
(%make-void-port "w")))
(run-with-store store (run-with-store store
(guix-derivation source version (guix-derivation source version
#$guile-version #$guile-version
@ -363,7 +366,7 @@ (define spin
'#$channel-metadata '#$channel-metadata
#:pull-version #:pull-version
#$pull-version) #$pull-version)
#:system system) #:system system))
derivation-file-name)))))) derivation-file-name))))))
#:module-path (list source)))) #:module-path (list source))))