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 @@
 | 
			
		|||
  (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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue