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:
		
							parent
							
								
									b93d7daeaf
								
							
						
					
					
						commit
						ef2b9322fa
					
				
					 1 changed files with 11 additions and 8 deletions
				
			
		|  | @ -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)))) | ||||
| 
 | ||||
|  |  | |||
		Reference in a new issue