aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-main.scm
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-03-31 21:29:27 +0300
committerAlex Kost <alezost@gmail.com>2016-04-04 20:11:22 +0300
commitf1f09937a683eeeff48310c6ee713398b5a2c78b (patch)
treef52cbcd93290703d10f96d89df1a479f2ec3807b /emacs/guix-main.scm
parent5f2928456bf70a6869b0a415ca60b6cc1e43214c (diff)
downloadguix-f1f09937a683eeeff48310c6ee713398b5a2c78b.tar
guix-f1f09937a683eeeff48310c6ee713398b5a2c78b.tar.gz
emacs: Stylistic improvements in guile code.
* emacs/guix-main.scm (package-unique?): Use 'match' instead of 'cdr'. (package-by-address): Likewise.
Diffstat (limited to 'emacs/guix-main.scm')
-rw-r--r--emacs/guix-main.scm11
1 files changed, 7 insertions, 4 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm
index bcff9ce985..da42450d80 100644
--- a/emacs/guix-main.scm
+++ b/emacs/guix-main.scm
@@ -293,8 +293,10 @@ Example:
(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 @@ Example:
;;; 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