summaryrefslogtreecommitdiff
path: root/chess-ply.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-03 06:34:25 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-03 06:34:25 +0000
commitc7e39a22fe0a2bc6da7226fcb29f42fc65e08659 (patch)
tree31023cd6824d396b16d1c3960d86f3c78f763018 /chess-ply.el
parentbc1b6e4f3789f4401ac5fe9bb9708459648345b0 (diff)
Gnuchess can be played against (up until a pawn take occurs).
Diffstat (limited to 'chess-ply.el')
-rw-r--r--chess-ply.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/chess-ply.el b/chess-ply.el
index 6b810d4..f5261b9 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -68,7 +68,9 @@
(chess-ply-changes ply)))
(defsubst chess-ply-create (position &rest changes)
- (cons position changes))
+ ;; jww (2002-04-02): if changes is a castling maneuver, then
+ ;; annotate and extend the ply correctly
+ (cons (chess-pos-copy position) changes))
(defun chess-legal-plies (position &optional search-func)
"Return a list of all legal plies in POSITION."