From b5ad949f84688529e60ca25584ee77e64974b070 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 07:45:05 +0000 Subject: *** no comment *** --- chess-ics.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'chess-ics.el') 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))) -- cgit v1.2.3