~ruther/guix-local: emacs: Fix errors in receiving information.

ce8b295352516ea2effd259401635a7cdd06cc6f — Alex Kost 11 years ago 79f5dd5

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 3 deletions(-)

M emacs/guix-main.scm

M emacs/guix-main.scm => emacs/guix-main.scm +5 -3

@@ 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)