nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix package: Remove unnecessary use of (%store). 

* guix/scripts/package.scm (delete-matching-generations): Use STORE
instead of (%store).
This commit is contained in:
Ludovic Courtès 2015-11-30 09:54:07 +01:00
parent ccd20fcb7d
commit 0993f94267
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/scripts/package.scm
View File

@ -110,7 +110,7 @@ denote ranges as interpreted by 'matching-derivations'."
(raise (condition (&profile-not-found-error (raise (condition (&profile-not-found-error
(profile profile))))) (profile profile)))))
((string-null? pattern) ((string-null? pattern)
(delete-generations (%store) profile (delete-generations store profile
(delv current (profile-generations profile)))) (delv current (profile-generations profile))))
;; Do not delete the zeroth generation. ;; Do not delete the zeroth generation.
((equal? 0 (string->number pattern)) ((equal? 0 (string->number pattern))
@ -131,7 +131,7 @@ denote ranges as interpreted by 'matching-derivations'."
(let ((numbers (delv current numbers))) (let ((numbers (delv current numbers)))
(when (null-list? numbers) (when (null-list? numbers)
(leave (_ "no matching generation~%"))) (leave (_ "no matching generation~%")))
(delete-generations (%store) profile numbers)))) (delete-generations store profile numbers))))
(else (else
(leave (_ "invalid syntax: ~a~%") pattern))))) (leave (_ "invalid syntax: ~a~%") pattern)))))