02/04: import: elpa: Work around Guile 3.0.[5-7] compiler bug.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d21353adea700b7f008d7a9f047d9f8b9c422cfb
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Nov 6 16:42:32 2021 +0100

    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(-)

diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm
index 96ebc17..2483677 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))