01/19: gnu: m4: Fix cross-compilation.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit 1ae2a47a0129059c6cd35e28683077999c320540
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Jun 26 20:28:46 2022 +0200

    gnu: m4: Fix cross-compilation.
    
    * gnu/packages/m4.scm (m4)[arguments]: Look up /bin/sh in NATIVE-INPUTS if
    applicable.
---
 gnu/packages/m4.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/m4.scm b/gnu/packages/m4.scm
index 9d3dbe41f2..fbc075a2cb 100644
--- a/gnu/packages/m4.scm
+++ b/gnu/packages/m4.scm
@@ -55,8 +55,9 @@
               (("4 5 6")
                "4 6"))))
         (add-after 'unpack 'configure-shell
-          (lambda* (#:key inputs #:allow-other-keys)
-            (let ((/bin/sh (search-input-file inputs "/bin/sh")))
+          (lambda* (#:key native-inputs inputs #:allow-other-keys)
+            (let ((/bin/sh (search-input-file (or native-inputs inputs)
+                                              "/bin/sh")))
               ;; Adjust hard-coded /bin/sh for tests.
               (substitute* "lib/config.hin"
                 (("\"/bin/sh\"")