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

Really :processing-move should always come before :start-turn.

diff --git a/atoms.lisp b/atoms.lisp
index 5dc0def..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)
          (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)
 
 (defmethod restart-game ((game atom-game) &key grid players)
   (game-cancel-timeout game)