diff options
| -rw-r--r-- | AUTHORS | 1 | ||||
| -rw-r--r-- | examples/mines/mines.scm | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -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) |