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.
---
 examples/mines/mines.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'examples')

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