From 70ed9465b86fc61a114c6d65067dfdfd83f0e61e Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Mon, 27 Apr 2020 21:28:31 -0700 Subject: [PATCH] Ensuring advance-turn consistency. --- src/server/farm.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/server/farm.scm b/src/server/farm.scm index 0ba7961..ec623c2 100644 --- 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)))))