civodul pushed a commit to branch master
in repository guix.
commit 9d4b720e1f9e7581e340e4c84c3781af4ee72fde
Author: Ludovic Courtès <[email protected]>
AuthorDate: Thu Oct 19 16:36:35 2023 +0200
packages: Add ‘system’ parameter for ‘set-guile-for-build’.
* guix/packages.scm (set-guile-for-build): Add ‘system’ parameter.
---
guix/packages.scm | 7 ++++---
1 file 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
