03/07: packages: Add ‘system’ parameter for ‘set-guile-for-build’.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9d4b720e1f9e7581e340e4c84c3781af4ee72fde
Author: Ludovic Courtès <ludo@gnu.org>
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