gnu: gawk: Allow cross-compilation.

* gnu/packages/gawk.scm (gawk)[arguments]: Use `set-shell-file-name'
  phase that works when cross-compiling; use `%standard-cross-phases' as
  the base when (%current-target-system) is true.

1 files changed, 12 insertions, 5 deletions

diff --git a/gnu/packages/gawk.scm b/gnu/packages/gawk.scm
index bba2ea1af0e..34a119f05be 100644
--- a/gnu/packages/gawk.scm
+++ b/gnu/packages/gawk.scm
@@ -44,11 +44,18 @@
                 'configure 'set-shell-file-name
                 (lambda* (#:key inputs #:allow-other-keys)
                   ;; Refer to the right shell.
-                  (let ((bash (assoc-ref inputs "bash")))
-                    (substitute* "io.c"
-                      (("/bin/sh")
-                       (string-append bash "/bin/bash")))))
-                %standard-phases)))
+                  ;; FIXME: Remove `else' arm upon core-updates.
+                  ,(if (%current-target-system)
+                       '(let ((sh (which "sh")))
+                          (substitute* "io.c"
+                            (("/bin/sh") sh)))
+                       '(let ((bash (assoc-ref inputs "bash")))
+                          (substitute* "io.c"
+                            (("/bin/sh")
+                             (string-append bash "/bin/bash"))))))
+                ,(if (%current-target-system)
+                     '%standard-cross-phases
+                     '%standard-phases))))
    (inputs `(("libsigsegv" ,libsigsegv)))
    (home-page "http://www.gnu.org/software/gawk/")
    (synopsis "A text scanning and processing language")