From 216057d25586ccb6bc75844592d9dbff444559ac Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 26 Feb 2018 11:32:04 -0800
Subject: [PATCH] minesweeper: ignore space keypress for hint cheat.

---
 extra/minesweeper/minesweeper.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/minesweeper/minesweeper.factor b/extra/minesweeper/minesweeper.factor
index 5b7bfca746..f7e0f028f2 100644
--- 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 ;