From ccc240f978a3cecd37c9de4e9f148e56bc73ab88 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 10 Jan 2015 12:59:41 -0600
Subject: mines: Disable clicking on tiles when you lose.

Also add myself to AUTHORS! ;)

* AUTHORS: Add me.
* examples/mines/mines.scm (board-reveal): Don't reveal tiles in 'game
  over' state.
---
 AUTHORS                  | 1 +
 examples/mines/mines.scm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/AUTHORS b/AUTHORS
index 1b60f6a..be05fc4 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,2 +1,3 @@
 David Thompson <davet@gnu.org>
 Jordan Russell <jordan.likes.curry@gmail.com>
+Christopher Allan Webber <cwebber@dustycloud.org>
diff --git a/examples/mines/mines.scm b/examples/mines/mines.scm
index 98056cc..97d77b0 100644
--- a/examples/mines/mines.scm
+++ b/examples/mines/mines.scm
@@ -163,7 +163,8 @@
     (cond
      ;; Nothing to do.
      ((or (tile-shown? tile)
-          (tile-flagged? tile))
+          (tile-flagged? tile)
+          (board-lose? board))
       board)
      ;; Oops!
      ((tile-mine? tile)
-- 
cgit v1.2.3