summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-11-06 16:42:32 +0100
committerLudovic Courtès <ludo@gnu.org>2021-11-06 23:01:21 +0100
commitd21353adea700b7f008d7a9f047d9f8b9c422cfb (patch)
tree8295db0b33cdff4d99256cb9aeb4785179c7154f /guix/import
parent86ed0039908e45c44d32c82192414735566f1cd0 (diff)
downloadguix-patches-d21353adea700b7f008d7a9f047d9f8b9c422cfb.tar
guix-patches-d21353adea700b7f008d7a9f047d9f8b9c422cfb.tar.gz
import: elpa: Work around Guile 3.0.[5-7] compiler bug.
Fixes <https://issues.guix.gnu.org/49006>. Reported by Xinglu Chen <public@yoctocell.xyz>. * guix/import/elpa.scm (elpa-package->sexp)[melpa-recipe]: Add call to 'identity'.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/elpa.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm
index 96ebc17af1..2483677b39 100644
--- a/guix/import/elpa.scm
+++ b/guix/import/elpa.scm
@@ -337,9 +337,10 @@ the package named PACKAGE-NAME."
type '<elpa-package>'."
(define melpa-recipe
- (if (eq? repo 'melpa)
- (package-name->melpa-recipe (elpa-package-name pkg))
- #f))
+ ;; XXX: Call 'identity' to work around a Guile 3.0.[5-7] compiler bug:
+ ;; <https://bugs.gnu.org/48368>.
+ (and (eq? (identity repo) 'melpa)
+ (package-name->melpa-recipe (elpa-package-name pkg))))
(define name (elpa-package-name pkg))