53/68: installer: Clear screen upon exit.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit df3664f1ec9a8b3c59c0e61f197798c2dda986e3
Author: Mathieu Othacehe <address@hidden>
Date:   Sat Dec 8 10:37:56 2018 +0900

    installer: Clear screen upon exit.
    
    * gnu/installer/newt.scm (exit): Call clear-screen after newt-finish,
    (exit-error): ditto.
---
 gnu/installer/newt.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm
index 31329b5..6c44b4a 100644
--- a/gnu/installer/newt.scm
+++ b/gnu/installer/newt.scm
@@ -47,7 +47,8 @@
   (set-screen-size!))
 
 (define (exit)
-  (newt-finish))
+  (newt-finish)
+  (clear-screen))
 
 (define (exit-error file key args)
   (newt-set-color COLORSET-ROOT "white" "red")
@@ -66,7 +67,8 @@ problem. The backtrace is displayed below. Please report it 
by email to \
      #:file-textbox-width width
      #:file-textbox-height height))
   (newt-set-color COLORSET-ROOT "white" "blue")
-  (newt-finish))
+  (newt-finish)
+  (clear-screen))
 
 (define (final-page result prev-steps)
   (run-final-page result prev-steps))