summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-30 09:54:07 +0100
committerLudovic Courtès <ludo@gnu.org>2015-12-01 00:02:54 +0200
commit0993f9426742bdd7d866bd3afe3bce3658bbe401 (patch)
tree403e3c7e557772727258dcbca765172f80b9da79 /guix/scripts
parentccd20fcb7dd52008409d26e9da9c8454a4b60767 (diff)
guix package: Remove unnecessary use of (%store).
* guix/scripts/package.scm (delete-matching-generations): Use STORE instead of (%store).
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/package.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index b1bce7020c..750d2afe47 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -110,7 +110,7 @@ denote ranges as interpreted by 'matching-derivations'."
(raise (condition (&profile-not-found-error
(profile profile)))))
((string-null? pattern)
- (delete-generations (%store) profile
+ (delete-generations store profile
(delv current (profile-generations profile))))
;; Do not delete the zeroth generation.
((equal? 0 (string->number pattern))
@@ -131,7 +131,7 @@ denote ranges as interpreted by 'matching-derivations'."
(let ((numbers (delv current numbers)))
(when (null-list? numbers)
(leave (_ "no matching generation~%")))
- (delete-generations (%store) profile numbers))))
+ (delete-generations store profile numbers))))
(else
(leave (_ "invalid syntax: ~a~%") pattern)))))