diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-30 09:54:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-12-01 00:02:54 +0200 |
| commit | 0993f9426742bdd7d866bd3afe3bce3658bbe401 (patch) | |
| tree | 403e3c7e557772727258dcbca765172f80b9da79 | |
| parent | ccd20fcb7dd52008409d26e9da9c8454a4b60767 (diff) | |
| download | guix-0993f9426742bdd7d866bd3afe3bce3658bbe401.tar guix-0993f9426742bdd7d866bd3afe3bce3658bbe401.tar.gz | |
guix package: Remove unnecessary use of (%store).
* guix/scripts/package.scm (delete-matching-generations): Use STORE
instead of (%store).
| -rw-r--r-- | 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 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))))) |