aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2022-10-23 15:34:50 +0200
committerMathieu Othacehe <othacehe@gnu.org>2022-10-23 15:37:57 +0200
commitbf5e78d59fcb188d0bce02d93c93d06069178837 (patch)
tree060da70dbbe64f220ee0557d8a116acdc366697b
parent88fa3e6c3e46cbe324758fdf71b9c00e42f93069 (diff)
downloadguix-bf5e78d59fcb188d0bce02d93c93d06069178837.tar
guix-bf5e78d59fcb188d0bce02d93c93d06069178837.tar.gz
installer: Resume newt in exit-error procedure.
Fixes: <https://issues.guix.gnu.org/58734> * gnu/installer/newt.scm (exit-error): Resume it.
-rw-r--r--gnu/installer/newt.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm
index 1db78e6f0d..0bd0856219 100644
--- a/gnu/installer/newt.scm
+++ b/gnu/installer/newt.scm
@@ -62,6 +62,9 @@
(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