From 2e8b4f9bfa00489fd3acff305837a79af236e183 Mon Sep 17 00:00:00 2001 From: Josselin Poiret Date: Thu, 22 Sep 2022 15:12:47 +0200 Subject: 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 --- gnu/installer/newt/services.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'gnu/installer') 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 @@ (define (run-console-services-cbt-page) #: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." -- cgit v1.2.3