aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-main.scm
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/guix-main.scm')
-rw-r--r--emacs/guix-main.scm8
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)