diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-01-06 11:25:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-01-06 16:27:30 +0100 |
| commit | a9268216e4f38189d7948cf2ecb51ad2eac7e586 (patch) | |
| tree | a5621ad265bf51c38361a1a791c0214b43485435 | |
| parent | 9f526f5dad5f4af69d158c50369e182305147f3b (diff) | |
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.scm | 2 | ||||
| -rw-r--r-- | guix/scripts/system.scm | 2 |
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) |