minesweeper: ignore space keypress for hint cheat.

diff --git a/extra/minesweeper/minesweeper.factor b/extra/minesweeper/minesweeper.factor
index 5b7bfca7462b1bfcc2c53d8a756b91fb0ffadc72..f7e0f028f263143ce790b022affec76aca3b17f3 100644 (file)
--- a/extra/minesweeper/minesweeper.factor
+++ b/extra/minesweeper/minesweeper.factor
@@ -223,7 +223,9 @@ M: grid-gadget pref-dim*
     ] [ 0 ] if* ;
 
 M: grid-gadget handle-gesture
-    over { [ key-down? ] [ sym>> length 1 = ] } 1&& [
+    over {
+        [ key-down? ] [ sym>> length 1 = ] [ sym>> " " = not ]
+    } 1&& [
         2dup [ sym>> first ] [ hint?>> ] bi* circular-push
     ] when call-next-method ;