chiark / gitweb /
atoms.lisp: Reorder the notifications in `play-cell'.
authorMark Wooding <mdw@distorted.org.uk>
Fri, 22 Mar 2013 22:34:41 +0000 (22:34 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Fri, 22 Mar 2013 22:34:41 +0000 (22:34 +0000)
Really :processing-move should always come before :start-turn.

atoms.lisp

index 5dc0def..fa65755 100644 (file)
@@ -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)