jmd pushed a commit to branch wip-installer in repository guix. commit 439bacda1c1a722d46733a4b7eb8b2f08d7e7088 Author: John Darrington <j...@gnu.org> 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 . _)