diff options
Diffstat (limited to 'chess-link.el')
| -rw-r--r-- | chess-link.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/chess-link.el b/chess-link.el index 9552a0f..dd57632 100644 --- a/chess-link.el +++ b/chess-link.el @@ -13,9 +13,9 @@ (defun chess-link-response-handler (event &rest args) "This function handles responses from the bot's computing engine." (let ((first-engine - (chess-game-data chess-engine-game 'first-engine)) + (chess-game-data (chess-engine-game nil) 'first-engine)) (second-engine - (chess-game-data chess-engine-game 'second-engine)) + (chess-game-data (chess-engine-game nil) 'second-engine)) return-value) (cond ((eq event 'match) @@ -53,8 +53,7 @@ engine, and the computer the second engine." (require chess-default-display) (let* ((my-color t) ; we start out as white always (game (chess-game-create)) - (display (chess-display-create game chess-default-display - my-color))) + (display (chess-create-display-object my-color))) (chess-game-set-data game 'my-color my-color) (chess-display-set-main display) (chess-display-disable-popup display) @@ -62,9 +61,9 @@ engine, and the computer the second engine." (when (and (require first-engine-type) (require second-engine-type)) (let ((first-engine - (chess-engine-create game first-engine-type)) + (chess-engine-create first-engine-type game)) (second-engine - (chess-engine-create game second-engine-type))) + (chess-engine-create second-engine-type game))) (chess-game-set-data game 'first-engine first-engine) (chess-engine-command first-engine 'ready) |