From a96524cc7d302ad6a8f2cd2e970a148b360f629a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 1 Sep 2015 19:57:44 -0400 Subject: import: gem: Fix minor bug and add unit test. * guix/import/gem.scm (make-gem-sexp): Properly handle an empty list of licenses. When rendering a list of licenses, cons 'list onto the front of the expression. * tests/gem.scm: New file. * Makefile.am (SCM_TESTS): Add it. --- guix/import/gem.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix/import/gem.scm') diff --git a/guix/import/gem.scm b/guix/import/gem.scm index 3c28d1d9fd..c64c4e9374 100644 --- a/guix/import/gem.scm +++ b/guix/import/gem.scm @@ -105,8 +105,9 @@ (define (make-gem-sexp name version hash home-page description (description ,description) (home-page ,home-page) (license ,(match licenses + (() #f) ((license) (license->symbol license)) - (_ (map license->symbol licenses)))))) + (_ `(list ,@(map license->symbol licenses))))))) (define* (gem->guix-package package-name #:optional version) "Fetch the metadata for PACKAGE-NAME from rubygems.org, and return the -- cgit v1.2.3