dannym pushed a commit to branch wip-installer-2
in repository guix.
commit dae3ce6586948f7de5ba395a741689c90270de86
Author: John Darrington <[email protected]>
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 . _)
