From 11b367ebafee85881a10cc01c287a0b78bfba1ea Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 18 Apr 2002 19:36:20 +0000 Subject: *** no comment *** --- chess-game.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index b28d7f9..b1b1ccf 100644 --- a/chess-game.el +++ b/chess-game.el @@ -158,7 +158,9 @@ This conveys the status of the game at the given index." "Return the current GAME sequence." (let ((index (chess-game-index game))) (if (> index 1) - (1+ (/ index 2)) + (if (= (mod index 2) 0) + (/ index 2) + (1+ (/ index 2))) 1))) (defsubst chess-game-side-to-move (game) -- cgit v1.2.3