X-Git-Url: https://git.distorted.org.uk/~mdw/atoms/blobdiff_plain/c1be708422af28ae0515b71ebadac0c9e1a8793b..3c0a8e1fda3c627e9d8040924129bbe17a0e85ca:/atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index 77329cf..eac69bc 100644
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -417,7 +417,12 @@
 	  do (restore player snap-player))
     (setf (game-player-index game) (slot-value snapshot 'player-index))
     (game-cancel-timeout game)
-    (changed game :refresh)))
+    (changed game :refresh)
+    (let ((critical-cells (loop for i below (array-total-size grid)
+				for cell = (row-major-aref grid i)
+				if (cell-critical-p cell)
+				collect cell)))
+      (when critical-cells (perform-explosions game critical-cells)))))
 
 ;;;--------------------------------------------------------------------------
 ;;; The interactive board.