ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Fix errors in receiving information.

Browse source 
* emacs/guix-main.scm (package-pattern-transformer,
  output-pattern-transformer): Add fallback 'match' clauses.
  (find-generations): Fix getting generations by IDs.
This commit is contained in:
Alex Kost 2014-09-28 00:33:29 +04:00
parent 79f5dd5915
commit ce8b295352
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/guix-main.scm
View file

@ -478,7 +478,8 @@ (define (->sexps pattern)
'() '()
(list (obsolete-package-sexp (list (obsolete-package-sexp
name version entries)))) name version entries))))
(map sexp-by-package packages)))))) (map sexp-by-package packages))))
(_ '())))
->sexps) ->sexps)
@ -563,7 +564,8 @@ (define (->sexps pattern)
(append-map (cut sexps-by-manifest-entry <>) (append-map (cut sexps-by-manifest-entry <>)
entries)) entries))
(append-map (cut sexps-by-package <> output) (append-map (cut sexps-by-package <> output)
packages)))))) packages))))
(_ '())))
->sexps) ->sexps)
@ -661,7 +663,7 @@ (define (find-generations profile search-type search-vals)
"Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS." "Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS."
(case search-type (case search-type
((id) ((id)
(matching-generations profile (cut memq <> (car search-vals)))) (matching-generations profile (cut memq <> search-vals)))
((last) ((last)
(last-generations profile (car search-vals))) (last-generations profile (car search-vals)))
((all) ((all)