packages: Use 'guile-for-grafts' for grafting.

The call to 'guile-for-grafts' had been inadvertently replaced by a call
to 'default-guile' in commit 9e5812ac59.
Unfortunately Guile 3.0.7 still occasionally segfaults while grafting
so we still need 2.0 here.

* guix/packages.scm (package->derivation, package->cross-derivation):
Use 'guile-for-grafts' instead of 'default-guile'.
This commit is contained in:
Ludovic Courtès 2021-09-27 11:22:52 +02:00
parent 8e220c2332
commit 4bd69850df
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions

View File

@ -1770,7 +1770,7 @@ This is an internal procedure."
(return drv))
(grafts
(mlet %store-monad ((guile (package->derivation
(default-guile)
(guile-for-grafts)
system #:graft? #f)))
(graft-derivation* drv grafts
#:system system
@ -1793,7 +1793,7 @@ system identifying string)."
(return drv))
(grafts
(mlet %store-monad ((guile (package->derivation
(default-guile)
(guile-for-grafts)
system #:graft? #f)))
(graft-derivation* drv grafts
#:system system