self: Use Guile 2.2 unconditionally for recent 'guix pull'.

Fixes <https://bugs.gnu.org/32929>.
Reported by Michael Bowcutt <mwb71@case.edu>.

* guix/self.scm (guix-derivation)[guile]: Use "2.2" when PULL-VERSION >= 1.
Likewise for the #:guile-version argument.
This commit is contained in:
Ludovic Courtès 2018-10-10 14:54:18 +02:00
parent 121f32a104
commit 099bb0175f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 4 deletions

View File

@ -911,7 +911,11 @@ is not supported."
version))
(define guile
(guile-for-build guile-version))
;; When PULL-VERSION >= 1, produce a self-contained Guix and use Guile 2.2
;; unconditionally.
(guile-for-build (if (>= pull-version 1)
"2.2"
guile-version)))
(mbegin %store-monad
(set-guile-for-build guile)
@ -920,9 +924,11 @@ is not supported."
#:name (string-append "guix-"
(shorten version))
#:pull-version pull-version
#:guile-version (match guile-version
("2.2.2" "2.2")
(version version))
#:guile-version (if (>= pull-version 1)
"2.2"
(match guile-version
("2.2.2" "2.2")
(version version)))
#:guile-for-build guile)))
(if guix
(lower-object guix)