chiark / gitweb /
atoms.lisp: A player about to make a move is active.
[atoms] / atoms.lisp
index e1c331c..0855c84 100644 (file)
@@ -290,7 +290,7 @@ (defmethod game-update-scores (game)
               (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)