diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2022-09-22 15:12:47 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-09-22 16:28:12 +0200 |
| commit | 2e8b4f9bfa00489fd3acff305837a79af236e183 (patch) | |
| tree | af95806a63617cac84a0cb51b2170ab1f83034d0 /gnu/installer | |
| parent | fd942712d8036519d1bcb85b37b127a8f2fff474 (diff) | |
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>
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/newt/services.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gnu/installer/newt/services.scm b/gnu/installer/newt/services.scm index 9951ad22127..b22024602c5 100644 --- a/gnu/installer/newt/services.scm +++ b/gnu/installer/newt/services.scm | |||
| @@ -99,10 +99,8 @@ non-graphical system.") | |||
| 99 | #:item->text (compose G_ system-service-name) | 99 | #:item->text (compose G_ system-service-name) |
| 100 | #:checkbox-tree-height 5 | 100 | #:checkbox-tree-height 5 |
| 101 | #:exit-button-callback-procedure | 101 | #:exit-button-callback-procedure |
| 102 | (lambda () | 102 | (lambda _ |
| 103 | (raise | 103 | (abort-to-prompt 'installer-step 'abort))))) |
| 104 | (condition | ||
| 105 | (&installer-step-abort))))))) | ||
| 106 | 104 | ||
| 107 | (define (run-network-management-page) | 105 | (define (run-network-management-page) |
| 108 | "Run a page to select among several network management methods." | 106 | "Run a page to select among several network management methods." |