packages: Use Guile 3.0 for grafts.
* guix/packages.scm (guile-2.0): Rename to... (guile-for-grafts): ... this, and adjust callers. Refer to 'guile-3.0' instead of 'guile-2.0'.
This commit is contained in:
parent
3139739802
commit
2b6fe60599
@ -444,12 +444,12 @@ derivations."
|
||||
(let ((distro (resolve-interface '(gnu packages commencement))))
|
||||
(module-ref distro 'guile-final)))
|
||||
|
||||
(define (guile-2.0)
|
||||
"Return Guile 2.0."
|
||||
;; FIXME: This is used as a workaround for <https://bugs.gnu.org/28211> when
|
||||
(define (guile-for-grafts)
|
||||
"Return the Guile package used to build grafting derivations."
|
||||
;; Guile 2.2 would not work due to <https://bugs.gnu.org/28211> when
|
||||
;; grafting packages.
|
||||
(let ((distro (resolve-interface '(gnu packages guile))))
|
||||
(module-ref distro 'guile-2.0)))
|
||||
(module-ref distro 'guile-3.0)))
|
||||
|
||||
(define* (default-guile-derivation #:optional (system (%current-system)))
|
||||
"Return the derivation for SYSTEM of the default Guile package used to run
|
||||
@ -1269,7 +1269,7 @@ This is an internal procedure."
|
||||
(()
|
||||
drv)
|
||||
(grafts
|
||||
(let ((guile (package-derivation store (guile-2.0)
|
||||
(let ((guile (package-derivation store (guile-for-grafts)
|
||||
system #:graft? #f)))
|
||||
;; TODO: As an optimization, we can simply graft the tip
|
||||
;; of the derivation graph since 'graft-derivation'
|
||||
@ -1295,7 +1295,7 @@ system identifying string)."
|
||||
(graft-derivation store drv grafts
|
||||
#:system system
|
||||
#:guile
|
||||
(package-derivation store (guile-2.0)
|
||||
(package-derivation store (guile-for-grafts)
|
||||
system #:graft? #f))))
|
||||
drv))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user