08/08: gurses: Don't crash if asked for an item by an invalid index.

[John Darrington]

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

commit e0eeeab68e648c3c86a5ba8cf18d438476b22c2b
Author: John Darrington <address@hidden>
Date:   Tue Feb 7 12:10:13 2017 +0100

    gurses: Don't crash if asked for an item by an invalid index.
    
    * gurses/menu.scm (menu-get-current-item): Return #f if the index is
    out of range.
---
 gurses/menu.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gurses/menu.scm b/gurses/menu.scm
index d1d7954..36f5b42 100644
--- a/gurses/menu.scm
+++ b/gurses/menu.scm
@@ -64,7 +64,9 @@
 
 (define (menu-get-current-item menu)
   (let ((idx (menu-current-item menu)))
-    (list-ref (menu-items menu) idx)))
+    (if (>= idx (length (menu-items menu)))
+        #f
+        (list-ref (menu-items menu) idx))))
 
 (define (menu-scroll-down menu step)
   (let ((limit (- (length (menu-items menu))