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.

distro: make-bootstrap: Fix arguments to gawk.
fdc78b72 · Ludovic Courtès · 2f8a123e · fdc78b72
Commit fdc78b72 authored 12 years ago by Ludovic Courtès
--- a/distro/packages/make-bootstrap.scm
+++ b/distro/packages/make-bootstrap.scm
@@ -107,15 +107,17 @@ (define %static-inputs
                (arguments
                 (lambda (system)
                   `(#:patches (list (assoc-ref %build-inputs "patch/sh"))
-                     #:phases (alist-cons-before
+                     ,@(substitute-keyword-arguments
-                               'build 'no-export-dynamic
+                           ((package-arguments gawk) system)
-                               (lambda* (#:key outputs #:allow-other-keys)
+                         ((#:phases phases)
-                                 ;; Since we use `-static', remove
+                          `(alist-cons-before
-                                 ;; `-export-dynamic'.
+                            'configure 'no-export-dynamic
-                                 (substitute* "configure"
+                            (lambda _
-                                   (("-export-dynamic") "")))
+                              ;; Since we use `-static', remove
-                               %standard-phases)
+                              ;; `-export-dynamic'.
-                     ,@((package-arguments gawk) system))))
+                              (substitute* "configure"
+                                (("-export-dynamic") "")))
+                            ,phases))))))
                (inputs `(("patch/sh" ,(search-patch "gawk-shell.patch"))))))
        (finalize (lambda (p)
                    (static-package (package-with-explicit-inputs