TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

emacs: Stylistic improvements in guile code.

Browse source 
* emacs/guix-main.scm (package-unique?): Use 'match' instead of 'cdr'.
(package-by-address): Likewise.
This commit is contained in:
Alex Kost 2016-03-31 21:29:27 +03:00
parent 5f2928456b
commit f1f09937a6
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/guix-main.scm
View file

@ -293,8 +293,10 @@ (define (package-source-names package)
(define (package-unique? package)
"Return #t if PACKAGE is a single package with such name/version."
(null? (cdr (packages-by-name (package-name package)
(package-version package)))))
(match (packages-by-name (package-name package)
(package-version package))
((package) #t)
(_ #f)))
(define %package-param-alist
`((id . ,object-address)
@ -330,8 +332,9 @@ (define (package-param package param)
;;; Finding packages.
(define (package-by-address address)
(and=> (vhash-assq address %packages)
cdr))
(match (vhash-assq address %packages)
((_ . package) package)
(_ #f)))
(define (packages-by-name+version name version)
(or (hash-ref %package-table