From d21353adea700b7f008d7a9f047d9f8b9c422cfb Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 6 Nov 2021 16:42:32 +0100
Subject: 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'.
---
 guix/import/elpa.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'guix/import')

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 @@ (define* (elpa-package->sexp pkg #:optional license repo)
 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))
 
-- 
cgit v1.2.3