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>
This commit is contained in:
Josselin Poiret 2022-09-22 15:12:47 +02:00 committed by Mathieu Othacehe
parent fd942712d8
commit 2e8b4f9bfa
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -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."