diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-10-19 16:36:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-10-28 00:17:24 +0200 |
| commit | 9d4b720e1f9e7581e340e4c84c3781af4ee72fde (patch) | |
| tree | 23de701b50286c47a23195bd00d45e366eeccd30 /guix | |
| parent | b3ec2a0d37b6494b04f38e20fc7ce450afb36d1d (diff) | |
packages: Add ‘system’ parameter for ‘set-guile-for-build’.
* guix/packages.scm (set-guile-for-build): Add ‘system’ parameter.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/packages.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index f70fad695e..e2e82692ad 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -2022,11 +2022,12 @@ symbolic output name, such as \"out\". Note that this procedure calls ;;; Monadic interface. ;;; -(define (set-guile-for-build guile) +(define* (set-guile-for-build guile #:optional system) "This monadic procedure changes the Guile currently used to run the build -code of derivations to GUILE, a package object." +code of derivations to GUILE, a package object, compiled for SYSTEM." (lambda (store) - (let ((guile (package-derivation store guile))) + (let ((guile (package-derivation store guile + (or system (%current-system))))) (values (%guile-for-build guile) store)))) (define* (package-file package |