From ce8b295352516ea2effd259401635a7cdd06cc6f Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 28 Sep 2014 00:33:29 +0400 Subject: emacs: Fix errors in receiving information. * emacs/guix-main.scm (package-pattern-transformer, output-pattern-transformer): Add fallback 'match' clauses. (find-generations): Fix getting generations by IDs. --- emacs/guix-main.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index 273a360dfc..026a9e98e7 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -478,7 +478,8 @@ ENTRIES is a list of installed manifest entries." '() (list (obsolete-package-sexp name version entries)))) - (map sexp-by-package packages)))))) + (map sexp-by-package packages)))) + (_ '()))) ->sexps) @@ -563,7 +564,8 @@ ENTRIES is a list of installed manifest entries." (append-map (cut sexps-by-manifest-entry <>) entries)) (append-map (cut sexps-by-package <> output) - packages)))))) + packages)))) + (_ '()))) ->sexps) @@ -661,7 +663,7 @@ If NUMBER is 0 or less, return all generations." "Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS." (case search-type ((id) - (matching-generations profile (cut memq <> (car search-vals)))) + (matching-generations profile (cut memq <> search-vals))) ((last) (last-generations profile (car search-vals))) ((all) -- cgit v1.2.3