02/02: installer: Ignore unknown events.

[Danny Milosavljevic]

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

commit 55dc95974e3ee6a97f990e3b8fb857faba92e215
Author: Danny Milosavljevic <address@hidden>
Date:   Thu Jul 13 02:30:14 2017 +0200

    installer: Ignore unknown events.
    
    * gnu/system/installer/dialog.scm (dialog-page-activate-item): Ignore 
unknown
    events.
---
 gnu/system/installer/dialog.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/system/installer/dialog.scm b/gnu/system/installer/dialog.scm
index 77129f4..1feefe8 100644
--- a/gnu/system/installer/dialog.scm
+++ b/gnu/system/installer/dialog.scm
@@ -46,9 +46,11 @@
 (define (dialog-page-activate-item page item)
   (match item
    ('ok
-      (delwin (page-datum page 'text-window))
-      (page-leave)
-      'handled)))
+    (delwin (page-datum page 'text-window))
+    (page-leave)
+    'handled)
+   (_
+    'ignored)))
 
 (define (dialog-page-refresh page)
   (when (not (page-initialised? page))