mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
installer: Resume newt in exit-error procedure.
Fixes: <https://issues.guix.gnu.org/58734> * gnu/installer/newt.scm (exit-error): Resume it.
This commit is contained in:
parent
88fa3e6c3e
commit
bf5e78d59f
1 changed files with 3 additions and 0 deletions
|
@ -62,6 +62,9 @@ (define (exit)
|
|||
(clear-screen))
|
||||
|
||||
(define (exit-error error)
|
||||
;; Newt may be suspended in the context of the "install-system"
|
||||
;; procedure. Resume it unconditionnally.
|
||||
(newt-resume)
|
||||
(newt-set-color COLORSET-ROOT "white" "red")
|
||||
(define action
|
||||
(run-textbox-page
|
||||
|
|
Loading…
Reference in a new issue