distro: make-bootstrap: Fix arguments to gawk.
* distro/packages/make-bootstrap.scm (%static-inputs)[gawk]: Use `substitute-keyword-arguments' to preserve the #:phases argument of GAWK.
This commit is contained in:
		
							parent
							
								
									2f8a123ed3
								
							
						
					
					
						commit
						fdc78b72f8
					
				
					 1 changed files with 11 additions and 9 deletions
				
			
		|  | @ -107,15 +107,17 @@ | |||
|                 (arguments | ||||
|                  (lambda (system) | ||||
|                    `(#:patches (list (assoc-ref %build-inputs "patch/sh")) | ||||
|                      #:phases (alist-cons-before | ||||
|                                'build 'no-export-dynamic | ||||
|                                (lambda* (#:key outputs #:allow-other-keys) | ||||
|                                  ;; Since we use `-static', remove | ||||
|                                  ;; `-export-dynamic'. | ||||
|                                  (substitute* "configure" | ||||
|                                    (("-export-dynamic") ""))) | ||||
|                                %standard-phases) | ||||
|                      ,@((package-arguments gawk) system)))) | ||||
|                      ,@(substitute-keyword-arguments | ||||
|                            ((package-arguments gawk) system) | ||||
|                          ((#:phases phases) | ||||
|                           `(alist-cons-before | ||||
|                             'configure 'no-export-dynamic | ||||
|                             (lambda _ | ||||
|                               ;; Since we use `-static', remove | ||||
|                               ;; `-export-dynamic'. | ||||
|                               (substitute* "configure" | ||||
|                                 (("-export-dynamic") ""))) | ||||
|                             ,phases)))))) | ||||
|                 (inputs `(("patch/sh" ,(search-patch "gawk-shell.patch")))))) | ||||
|         (finalize (lambda (p) | ||||
|                     (static-package (package-with-explicit-inputs | ||||
|  |  | |||
		Reference in a new issue