diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-04 14:52:15 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-04 14:52:15 +0000 |
| commit | 7695c7e50d543ed5596053ccc7d1d82edd8b0fe4 (patch) | |
| tree | f24a712d222bd7e7c93ecbc56ecd92c13df6f05b | |
| parent | 1cacbb62efc92acd1f707fc4dce488af001af786 (diff) | |
Set status of next-pos according to changes of ply
| -rw-r--r-- | chess-ply.el | 11 |
1 files 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)))) |