From a9268216e4f38189d7948cf2ecb51ad2eac7e586 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 6 Jan 2022 11:25:42 +0100 Subject: guix home, system: Use 'leave' to report missing generations. Fixes . Reported by Xinglu Chen . 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. --- guix/scripts/home.scm | 2 +- 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 @@ (define-syntax-rule (with-store* store exp ...) ((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 @@ (define-syntax-rule (with-store* store exp ...) ((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) -- cgit v1.2.3