From bf5e78d59fcb188d0bce02d93c93d06069178837 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Sun, 23 Oct 2022 15:34:50 +0200
Subject: installer: Resume newt in exit-error procedure.

Fixes: <https://issues.guix.gnu.org/58734>

* gnu/installer/newt.scm (exit-error): Resume it.
---
 gnu/installer/newt.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gnu')

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
-- 
cgit 1.4.1