diff options
| author | Alex Kost <alezost@gmail.com> | 2014-09-28 00:33:29 +0400 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2014-09-28 22:46:14 +0400 |
| commit | ce8b295352516ea2effd259401635a7cdd06cc6f (patch) | |
| tree | 4ea592569eaa92f3a902ef24d77fa528cb62dc85 /emacs | |
| parent | 79f5dd5915ab8ba5cc5fc19496e042e34a7a10ff (diff) | |
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.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/guix-main.scm | 8 |
1 files 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) |