diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 08:28:14 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 08:28:14 +0000 |
| commit | b0714ff514de8db1c49d48f18b7a8d25e9cf9200 (patch) | |
| tree | 3aa4090dde9290094afe1e2ccdefeae7fe295680 /chess-pos.el | |
| parent | 610076a57235eaae8b072893b55d67154b5c1ec4 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-pos.el')
| -rw-r--r-- | chess-pos.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/chess-pos.el b/chess-pos.el index 286047e..915e5b9 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -254,7 +254,7 @@ trying to move a blank square." ;; if a king or rook moves, no more castling; also, if a pawn ;; jumps ahead two, mark it en-passantable - (let ((piece (downcase (chess-pos-piece position (car changes))))) + (let ((piece (downcase (chess-pos-piece position (cadr changes))))) (cond ((and (= piece ?k) (equal (car changes) @@ -281,7 +281,7 @@ trying to move a blank square." (chess-pos-set-side-to-move position (not color)) ;; promote the piece if we were meant to - (let ((new-piece (cadr (assq :promote changes)))) + (let ((new-piece (cadr (memq :promote changes)))) (if new-piece (chess-pos-set-piece position (cadr changes) new-piece))) |