From 3871c9f50092b152367f6b2b570d481386e0d398 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 25 May 2013 17:54:27 +0200 Subject: 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. --- gnu/packages/gawk.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'gnu/packages/gawk.scm') diff --git a/gnu/packages/gawk.scm b/gnu/packages/gawk.scm index bba2ea1af0..34a119f05b 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") -- cgit v1.2.3