diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-10 19:20:16 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-10 19:20:16 +0000 |
| commit | 3a165b4807fcd3f456fd6d5e8c39e7c9ca6ea8c5 (patch) | |
| tree | e539d5a95a46abaf380fdd539d34ce5b91a0908c | |
| parent | 13ae76922f913e7dbbe93687465ebe698d0d37f0 (diff) | |
Fix a bug in chess-game-seq (at least I think it is supposed to work like it does ow)
| -rw-r--r-- | chess-game.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |