guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

16/17: import: elpa: Emit new-style package inputs.


From: guix-commits
Subject: 16/17: import: elpa: Emit new-style package inputs.
Date: Sat, 10 Jul 2021 19:07:13 -0400 (EDT)

civodul pushed a commit to branch core-updates
in repository guix.

commit ab270bf2e9e301b14fe90c36976835331d67acf5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Jun 30 16:09:00 2021 +0200

    import: elpa: Emit new-style package inputs.
    
    * guix/import/elpa.scm (elpa-package->sexp)[dependencies]: Turn into a
    list of symbols.
    [maybe-inputs]: Wrap in 'list' instead of 'quasiquote'.
---
 guix/import/elpa.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm
index c0dc5ac..0a1c414 100644
--- a/guix/import/elpa.scm
+++ b/guix/import/elpa.scm
@@ -350,9 +350,7 @@ type '<elpa-package>'."
                           (elpa-package-inputs pkg))))
 
   (define dependencies
-    (map (lambda (n)
-           (let ((new-n (elpa-name->package-name n)))
-             (list new-n (list 'unquote (string->symbol new-n)))))
+    (map (compose string->symbol elpa-name->package-name)
          dependencies-names))
 
   (define (maybe-inputs input-type inputs)
@@ -360,8 +358,7 @@ type '<elpa-package>'."
       (()
        '())
       ((inputs ...)
-       (list (list input-type
-                   (list 'quasiquote inputs))))))
+       (list (list input-type `(list ,@inputs))))))
 
   (define melpa-source
     (melpa-recipe->origin melpa-recipe))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]