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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 0993f9426742bdd7d866bd3afe3bce3658bbe401
Author: Ludovic Courtès <address@hidden>
Date:   Mon Nov 30 09:54:07 2015 +0100

    guix package: Remove unnecessary use of (%store).
    
    * guix/scripts/package.scm (delete-matching-generations): Use STORE
    instead of (%store).
---
 guix/scripts/package.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index b1bce70..750d2af 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)))))