diff options
Diffstat (limited to 'examples/mines/mines.scm')
| -rw-r--r-- | examples/mines/mines.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |