From f14ead765bc7937af790b007a07ca4e163e55095 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 3 Mar 2023 23:32:52 +0100 Subject: gnu: guile: Fix cross-compilation. Fixes a regression introduced in d427ec403800dc5b0b69f3d7c259a7d62eb6c881, which changed the label of Bash from "bash" to "bash-minimal" when cross-compiling. * gnu/packages/guile.scm (guile-2.0)[arguments]: In 'pre-configure' phase, use 'search-input-file' when (%current-target-system) is true. --- gnu/packages/guile.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index d1b8f70f47..2adf271d07 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -218,17 +218,21 @@ without requiring the source code to be rewritten.") (add-before 'configure 'pre-configure (lambda* (#:key inputs #:allow-other-keys) ;; Tell (ice-9 popen) the file name of Bash. + + ;; TODO: On the next rebuild cycle, unconditionally use + ;; 'search-input-file' instead of 'assoc-ref'. (let ((bash (assoc-ref inputs "bash"))) (substitute* "module/ice-9/popen.scm" ;; If bash is #f allow fallback for user to provide ;; "bash" in PATH. This happens when cross-building to ;; MinGW for which we do not have Bash yet. (("/bin/sh") - ,@(if (target-mingw?) - '((if bash - (string-append bash "/bin/bash") - "bash")) - '((string-append bash "/bin/bash"))))) + ,(cond ((target-mingw?) + "bash") + ((%current-target-system) + '(search-input-file inputs "/bin/bash")) + (else + '(string-append bash "/bin/bash"))))) #t)))))) (native-search-paths -- cgit 1.4.1