58/80: installer: Allow users to remove mount points during configuration.

[John Darrington]

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

commit 2ee7267d162dff65cf32fc7987d8699254c89b9f
Author: John Darrington <address@hidden>
Date:   Fri Dec 30 14:28:47 2016 +0100

    installer: Allow users to remove mount points during configuration.
    
    * gnu/system/installer/mount-point.scm (mount-point-page-key-handler):
    Remove mount-point from alist if it is the null string.
---
 gnu/system/installer/mount-point.scm |   11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/gnu/system/installer/mount-point.scm 
b/gnu/system/installer/mount-point.scm
index 5ea0235..61649ac 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -63,9 +63,14 @@
             (eq? ch #\nl))
            (cond
             ((buttons-key-matches-symbol? nav ch 'continue)
-             (set! mount-points (assoc-set! mount-points
-                                            dev
-                                            (form-get-value form 
'mount-point)))
+              (let ((mp (form-get-value form 'mount-point)))
+                (if (equal? "" mp)
+                    (set! mount-points
+                      (assoc-remove! mount-points dev))
+                    
+                    (set! mount-points (assoc-set! mount-points
+                                                   dev mp))))
+
              (set! page-stack (cdr page-stack))
              ((page-refresh (car page-stack)) (car page-stack)))