From 3a165b4807fcd3f456fd6d5e8c39e7c9ca6ea8c5 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sat, 10 Jan 2004 19:20:16 +0000 Subject: Fix a bug in chess-game-seq (at least I think it is supposed to work like it does ow) --- chess-game.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index 900710b..05bce02 100644 --- a/chess-game.el +++ b/chess-game.el @@ -191,9 +191,7 @@ This conveys the status of the game at the given index." (assert game) (let ((index (chess-game-index game))) (if (> index 1) - (if (= (mod index 2) 0) - (/ index 2) - (1+ (/ index 2))) + (+ 1 (mod index 2) (/ index 2)) 1))) (defsubst chess-game-side-to-move (game &optional index) -- cgit v1.2.3