atoms.lisp: Reorder the notifications in `play-cell'.

[atoms] / atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index 0855c84..fa65755 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -362,8 +362,8 @@
          (unless (cell-played cell player-index)
            (return-from escape))
          (setf (player-state player) :playing)
-         (perform-explosions game (list cell)))
-       (changed game :processing-move)))))
+         (changed game :processing-move)
+         (perform-explosions game (list cell)))))))
 
 (defmethod restart-game ((game atom-game) &key grid players)
   (game-cancel-timeout game)
@@ -416,6 +416,7 @@
          for snap-player in snap-players
          do (restore player snap-player))
     (setf (game-player-index game) (slot-value snapshot 'player-index))
+    (game-cancel-timeout game)
     (changed game :refresh)))
 
 ;;;--------------------------------------------------------------------------