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:
parent
fd942712d8
commit
2e8b4f9bfa
1 changed files with 2 additions and 4 deletions
|
@ -99,10 +99,8 @@ non-graphical system.")
|
||||||
#:item->text (compose G_ system-service-name)
|
#:item->text (compose G_ system-service-name)
|
||||||
#:checkbox-tree-height 5
|
#:checkbox-tree-height 5
|
||||||
#:exit-button-callback-procedure
|
#:exit-button-callback-procedure
|
||||||
(lambda ()
|
(lambda _
|
||||||
(raise
|
(abort-to-prompt 'installer-step 'abort)))))
|
||||||
(condition
|
|
||||||
(&installer-step-abort)))))))
|
|
||||||
|
|
||||||
(define (run-network-management-page)
|
(define (run-network-management-page)
|
||||||
"Run a page to select among several network management methods."
|
"Run a page to select among several network management methods."
|
||||||
|
|
Reference in a new issue