@@ -2022,11 +2022,12 @@ (define* (package-output store package
;;; 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