From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 22 Mar 2013 22:34:41 +0000 (+0000)
Subject: atoms.lisp: A player about to make a move is active.
X-Git-Url: https://git.distorted.org.uk/~mdw/atoms/commitdiff_plain/752d65992326e4758e1d5a7ed7df5f911fbf0d1c?hp=6f866d5383a5ff01964b17f524d976598fbd9c09

atoms.lisp: A player about to make a move is active.

Fixes a bug in `game-update-scores' which you should never actually see,
since a player shouldn't become ready if the game's already been won.
But this was exposed by another bug, so I might as well fix it.
---

diff --git a/atoms.lisp b/atoms.lisp
index e1c331c..0855c84 100644
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -290,7 +290,7 @@
 	       (state (player-state player)))
 	  (cond ((and (zerop score) (eql state :playing))
 		 (setf (player-state player) :losing))
-		((member state '(:playing :starting))
+		((member state '(:playing :starting :ready))
 		 (incf remaining)
 		 (setf found player)))))
       (changed game :scores :players players)