From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 22 Mar 2013 22:34:41 +0000 (+0000)
Subject: atoms.lisp: Reorder the notifications in `play-cell'.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/atoms/commitdiff_plain/676840aeb80ebcbed9eb0206b83810e8bffd8d88

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
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -362,8 +362,8 @@ (defmethod play-cell ((game atom-game) player i j)
 	  (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)