[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: installer: Exit console-services page with abort-to-prompt.
|
From: |
guix-commits |
|
Subject: |
04/04: installer: Exit console-services page with abort-to-prompt. |
|
Date: |
Thu, 22 Sep 2022 10:28:27 -0400 (EDT) |
mothacehe pushed a commit to branch master
in repository guix.
commit 2e8b4f9bfa00489fd3acff305837a79af236e183
Author: Josselin Poiret <dev@jpoiret.xyz>
AuthorDate: Thu Sep 22 15:12:47 2022 +0200
installer: Exit console-services page with abort-to-prompt.
* gnu/installer/newt/services.scm (run-console-services-cbt-page): Do it.
Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
gnu/installer/newt/services.scm | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/gnu/installer/newt/services.scm b/gnu/installer/newt/services.scm
index 9951ad2212..b22024602c 100644
--- a/gnu/installer/newt/services.scm
+++ b/gnu/installer/newt/services.scm
@@ -99,10 +99,8 @@ non-graphical system.")
#:item->text (compose G_ system-service-name)
#:checkbox-tree-height 5
#:exit-button-callback-procedure
- (lambda ()
- (raise
- (condition
- (&installer-step-abort)))))))
+ (lambda _
+ (abort-to-prompt 'installer-step 'abort)))))
(define (run-network-management-page)
"Run a page to select among several network management methods."