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

* guix/packages.scm (set-guile-for-build): Add ‘system’ parameter.
This commit is contained in:
Ludovic Courtès 2023-10-19 16:36:35 +02:00
parent b3ec2a0d37
commit 9d4b720e1f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions

View File

@ -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