diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-03-22 23:45:24 +0100 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2025-07-18 20:17:31 +0200 |
| commit | 4ead533379cb90fc18f2b64d841f64822dd442b7 (patch) | |
| tree | 4c17cd0f3e1adb5fde4f22656b5e48d5e438a2c6 /guix | |
| parent | c57975b0e7d27b8fac7791635a82e33244229af9 (diff) | |
gnu-bootstrap: Use ‘search-input-file’.
* guix/build/gnu-bootstrap.scm (bootstrap-configure)
(bootstrap-install): Use ‘search-input-file’ instead of ‘assoc-ref’.
Change-Id: I8cd876d099a346b55b5e06b3a220f712dd504791
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/gnu-bootstrap.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/guix/build/gnu-bootstrap.scm b/guix/build/gnu-bootstrap.scm index b4257a3717..b265be7d1d 100644 --- a/guix/build/gnu-bootstrap.scm +++ b/guix/build/gnu-bootstrap.scm @@ -39,8 +39,7 @@ directory and configure all of the '.in' files with the bootstrap Guile and its module and object directories." (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) - (guile-dir (assoc-ref inputs "guile")) - (guile (string-append guile-dir "/bin/guile")) + (guile (search-input-file inputs "/bin/guile")) (moddir (string-append out "/share/guile/site/" (effective-version))) (godir (string-append out "/lib/guile/" @@ -92,8 +91,7 @@ directories in MODULES, and all the executable files in the SCRIPTS directory." (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) - (guile-dir (assoc-ref inputs "guile")) - (guile (string-append guile-dir "/bin/guile")) + (guile (search-input-file inputs "/bin/guile")) (moddir (string-append out "/share/guile/site/" (effective-version))) (godir (string-append out "/lib/guile/" |