Subject: import: elpa: Check if 'fetch-elpa-package' rest argument is null.

From: Oleg Pykhalov <[email-masked]>
Date: Sat, 30 Jun 2018 10:55:05 +0300

Hello Guix,

This patch fixes the following error:
--8<---------------cut here---------------start------------->8---
$ guix import elpa -a melpa proc-net
Backtrace:
           6 (primitive-load "/home/natsu/.config/guix/current/bin/guix")
In guix/ui.scm:
  1570:12  5 (run-guix-command _ . _)
In guix/scripts/import.scm:
   114:11  4 (guix-import . _)
In guix/scripts/import/elpa.scm:
   108:23  3 (guix-import-elpa . _)
In guix/import/elpa.scm:
    247:2  2 (elpa->guix-package _ _)
   190:47  1 (fetch-elpa-package _ _)
In unknown file:
           0 (car ())

ERROR: In procedure car:
In procedure car: Wrong type (expecting pair): ()
--8<---------------cut here---------------end--------------->8---

From 5b06ab52ada54fc4c42c87400a7b635843cf1542 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <[email-masked]>
Date: Sat, 30 Jun 2018 10:51:45 +0300
Subject: [PATCH] import: elpa: Check if 'fetch-elpa-package' rest argument is
 null.

* guix/import/elpa.scm (fetch-elpa-package): Check if 'rest' is null.
---
 guix/import/elpa.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm
index 65e0be45a..869e70ee2 100644
--- a/guix/import/elpa.scm
+++ b/guix/import/elpa.scm
@@ -187,7 +187,7 @@ include VERSION."
              (url (package-source-url kind name ver repo)))
          (make-elpa-package name ver
                             (ensure-list reqs) synopsis kind
-                            (package-home-page (first rest))
+                            (package-home-page (if (null? rest) #f (first rest)))
                             (fetch-package-description kind name repo)
                             url)))
       (_ #f))))
-- 
2.18.0

Thanks,
Oleg.