99/197: installer: Exit the format page after all partitions are successfully formatted.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit cfd792eccc0780be5efb1564e572120b5c0936ec
Author: John Darrington <address@hidden>
Date:   Sun Jan 15 09:07:51 2017 +0100

    installer: Exit the format page after all partitions are successfully 
formatted.
    
    * gnu/system/installer/format.scm (format-key-handler)[continue]: Leave
    the page if all filesystems are formatted.
---
 gnu/system/installer/format.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/system/installer/format.scm b/gnu/system/installer/format.scm
index fc9d84d..1684b36 100644
--- a/gnu/system/installer/format.scm
+++ b/gnu/system/installer/format.scm
@@ -114,7 +114,8 @@ match those uuids read from the respective partitions"
 
         (close-port window-port))
 
-      ;;(page-leave)
+      (when (filesystems-are-current?)
+            (page-leave))
       ))
 
     #f))