mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/packages.scm
View file

@ -2022,11 +2022,12 @@ (define* (package-output store package
;;; Monadic interface. ;;; 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 "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) (lambda (store)
(let ((guile (package-derivation store guile))) (let ((guile (package-derivation store guile
(or system (%current-system)))))
(values (%guile-for-build guile) store)))) (values (%guile-for-build guile) store))))
(define* (package-file package (define* (package-file package