Ensuring advance-turn consistency.

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)))))