aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-01-06 11:25:42 +0100
committerLudovic Courtès <ludo@gnu.org>2022-01-06 16:27:30 +0100
commita9268216e4f38189d7948cf2ecb51ad2eac7e586 (patch)
treea5621ad265bf51c38361a1a791c0214b43485435
parent9f526f5dad5f4af69d158c50369e182305147f3b (diff)
downloadguix-a9268216e4f38189d7948cf2ecb51ad2eac7e586.tar
guix-a9268216e4f38189d7948cf2ecb51ad2eac7e586.tar.gz
guix home, system: Use 'leave' to report missing generations.
Fixes <https://issues.guix.gnu.org/50982>. Reported by Xinglu Chen <public@yoctocell.xyz>. Fixes a typo ('error' instead of 'leave') introduced in 158032bd7dcc33d17da8091b2319bf59ee9db6a1 and copied in 89e05a695574fdabd76834aba35ad125620b8b5d. * guix/scripts/system.scm (process-command): Use 'leave', not 'error'. * guix/scripts/home.scm (process-command): Likewise.
-rw-r--r--guix/scripts/home.scm2
-rw-r--r--guix/scripts/system.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/home.scm b/guix/scripts/home.scm
index afc7d8b39c..9573661856 100644
--- a/guix/scripts/home.scm
+++ b/guix/scripts/home.scm
@@ -286,7 +286,7 @@ deploy the home environment described by these files.\n")
((describe)
(match (generation-number %guix-home)
(0
- (error (G_ "no home environment generation, nothing to describe~%")))
+ (leave (G_ "no home environment generation, nothing to describe~%")))
(generation
(display-home-environment-generation generation))))
((list-generations)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 62258c1420..98e788c657 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -1321,7 +1321,7 @@ argument list and OPTS is the option alist."
((describe)
(match (generation-number %system-profile)
(0
- (error (G_ "no system generation, nothing to describe~%")))
+ (leave (G_ "no system generation, nothing to describe~%")))
(generation
(display-system-generation generation))))
((search)