summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-04-06 21:27:03 +0200
committerLudovic Courtès <ludo@gnu.org>2015-04-06 21:27:35 +0200
commit250bc998ac9d456f70c675579020d7173f87f3c3 (patch)
tree4a934f94c6b65a2f138e16fb4d783e6ea8200175
parentd26eb84d140af8d2119509d7da440b4f035608c5 (diff)
guix package: Avoid 'exit' calls in 'delete-matching-generations'.
* guix/scripts/package.scm (delete-matching-generations): Remove call to 'exit' when PATTERN is "0". Call 'leave' instead of 'exit' when (null-list? number).
-rw-r--r--guix/scripts/package.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 3a7afb724b..6190f3286d 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -246,7 +246,7 @@ denote ranges as interpreted by 'matching-derivations'."
(delv current (profile-generations profile))))
;; Do not delete the zeroth generation.
((equal? 0 (string->number pattern))
- (exit 0))
+ #t)
;; If PATTERN is a duration, match generations that are
;; older than the specified duration.
@@ -261,9 +261,9 @@ denote ranges as interpreted by 'matching-derivations'."
;; Make sure we don't inadvertently remove the current
;; generation.
(let ((numbers (delv current numbers)))
- (if (null-list? numbers)
- (exit 1)
- (delete-generations (%store) profile numbers)))))
+ (when (null-list? numbers)
+ (leave (_ "no matching generation~%")))
+ (delete-generations (%store) profile numbers))))
(else
(leave (_ "invalid syntax: ~a~%") pattern)))))