03/08: installer: Remove unused procedure.

[John Darrington]

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

commit 439bacda1c1a722d46733a4b7eb8b2f08d7e7088
Author: John Darrington <address@hidden>
Date:   Mon Feb 6 17:55:45 2017 +0100

    installer: Remove unused procedure.
    
    * gnu/system/installer/utils.scm (new-nav-form): Remove procedure.
---
 gnu/system/installer/utils.scm | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 082dcc7..ceedcec 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -28,7 +28,6 @@
            pop-cursor
 
            make-window-port
-           new-nav-form
            standard-menu-keystrokes
 
            make-boxed-window
@@ -235,26 +234,6 @@ which will process each string before returning it."
 
 
 
-(define (new-nav-form button-fields)
-  (new-form (let usr ((ef button-fields)
-                     (xpos 0)
-                     (acc '()))
-             (if (null? ef)
-                 (reverse acc)
-                 (let* ((ff (cdr (car ef)))
-                        (label (car ff))
-                        (nf (new-field 1 (string-length label) 1 xpos 0 0)))
-                   (list-set! ff 1 nf)
-                   (set-field-buffer! nf 0 label)
-                   (field-opts-off! nf O_EDIT)
-                   (usr (cdr ef)
-                        (+ xpos (string-length label) 1)
-                        (cons nf acc)))))))
-
-
-
-
-
 (define (inner boxed-window)
   (match boxed-window
     ((inside . _)