01/02: installer: Only handle menu keys when menu is active.

[Danny Milosavljevic]

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

commit 6c29399e26184f8ce8fac6fe0a260e9f7d616cc5
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 17:49:56 2017 +0200

    installer: Only handle menu keys when menu is active.
    
    * gurses/menu.scm (std-menu-key-handler): Modify.
---
 gurses/menu.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gurses/menu.scm b/gurses/menu.scm
index 98377fe..32854a1 100644
--- a/gurses/menu.scm
+++ b/gurses/menu.scm
@@ -151,7 +151,7 @@
   "Handle some often-used menu keys.
 Note that it's the caller's responsibility to check whether the menu is
 active."
-  (if #t ; FIXME (menu-active menu)
+  (if (menu-active menu)
       (cond
        ((eq? ch KEY_NPAGE)
         (menu-down menu #:step (getmaxy (menu-window menu)))
@@ -169,8 +169,8 @@ active."
         (menu-goto-end menu)
         'handled)
 
-       ((or (eqv? ch KEY_DOWN)
-            (eqv? ch #\so))
+       ((or (eq? ch KEY_DOWN)
+            (eq? ch #\so))
         (menu-down menu)
         'handled)