summaryrefslogtreecommitdiff
path: root/chess-game.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-game.el')
-rw-r--r--chess-game.el4
1 files changed, 3 insertions, 1 deletions
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)