From 7695c7e50d543ed5596053ccc7d1d82edd8b0fe4 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sun, 4 Jan 2004 14:52:15 +0000 Subject: Set status of next-pos according to changes of ply --- chess-ply.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/chess-ply.el b/chess-ply.el index 4ef3558..8d04dbf 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -250,10 +250,13 @@ maneuver." ;; now, as a result of the changes? (if (chess-legal-plies next-pos :any :color next-color) (if in-check - (nconc changes (list :check))) - (nconc changes (list (if in-check - :checkmate - :stalemate)))))))) + (nconc changes (list (chess-pos-set-status + next-pos :check)))) + (nconc changes (list (chess-pos-set-status + next-pos + (if in-check + :checkmate + :stalemate))))))))) ;; return the annotated ply ply)))) -- cgit v1.2.3