diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-05-16 17:28:18 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-05-16 17:28:18 +0000 |
| commit | 59d1008283f339d6c6d146979c4cff0c6430b095 (patch) | |
| tree | 530b969e5568e51caf57dc230a544e141c26bec1 /chess-ics.el | |
| parent | 86493efa7a72ecda178e0ec5e7123c9761a61046 (diff) | |
miscellaneous fixes
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/chess-ics.el b/chess-ics.el index 9d5c9bb..dfe9774 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -365,19 +365,15 @@ who is black." (chess-game-set-tag game "White" chess-full-name) (chess-game-set-tag game "Black" chess-engine-opponent-name)) - (cond - ((chess-ply-keyword (car args) :resign) - (chess-engine-send nil "resign\n")) - (t - (let ((move - (if (chess-ply-any-keyword (car args) - :castle :long-castle) - (chess-ply-to-algebraic (car args)) - (concat (chess-index-to-coord - (car (chess-ply-changes (car args)))) "-" - (chess-index-to-coord - (cadr (chess-ply-changes (car args)))))))) - (chess-engine-send nil (concat move "\n"))))) + (let ((move + (if (chess-ply-any-keyword (car args) + :castle :long-castle) + (chess-ply-to-algebraic (car args)) + (concat (chess-index-to-coord + (car (chess-ply-changes (car args)))) "-" + (chess-index-to-coord + (cadr (chess-ply-changes (car args)))))))) + (chess-engine-send nil (concat move "\n"))) (if (chess-game-over-p game) (chess-game-set-data game 'active nil))) |