diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 07:45:05 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 07:45:05 +0000 |
| commit | b5ad949f84688529e60ca25584ee77e64974b070 (patch) | |
| tree | 3de564f683f3401d1c73e13cae40357753b5cb40 /chess-ics.el | |
| parent | 7b39c4fddcc382ed201b51970dc517b931289565 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/chess-ics.el b/chess-ics.el index cffe278..a6226ec 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -111,11 +111,12 @@ who is black." (end (match-end 1)) (info (chess-ics12-parse (match-string 2)))) (if (> (chess-game-index (chess-engine-game nil)) 0) - (if (eq color (chess-pos-side-to-move (chess-engine-position nil))) - (chess-engine-do-move (car ply-info))) + (if (eq (chess-pos-side-to-move (chess-ply-pos (car info))) + (chess-pos-side-to-move (chess-engine-position nil))) + (chess-engine-do-move (car info))) (chess-game-set-plies (chess-engine-game nil) - (list (car ply-info))) - (unless (string= (cadr ply-info) ics-handle) + (list (car info))) + (unless (string= (cadr info) ics-handle) (chess-game-run-hooks (chess-engine-game nil) 'pass))) (delete-region begin end))) |