Ensuring advance-turn consistency.

2020-04-27 21:28:31 -07:00
parent 1f5b1e1eae
commit 70ed9465b8
1 changed files with 4 additions and 1 deletions
--- a/src/server/farm.scm
+++ b/src/server/farm.scm
@@ -521,7 +521,10 @@
  (if (all-players-finished game)
      (safe-set! (game-state game) 'finished)
      (let ((next (next-player game)))
-        (safe-set! (player-state player) 'turn-ended)
+        (for-each (lambda (p)
+                    (when (not (eq? (player-state p) 'finished))
+                      (safe-set! (player-state p) 'turn-ended)))
+                  (game-players game))
        (safe-set! (player-state next) 'pre-turn)
        (safe-set! (game-current-player game) next)
        (safe-set! (game-turn game) (+ (game-turn game) 1)))))