Fixes and other work.

1 files changed, 9 insertions, 2 deletions

diff --git a/chess-game.el b/chess-game.el
index b1b1ccf..99131db 100644
--- a/chess-game.el
+++ b/chess-game.el
@@ -163,8 +163,8 @@ This conveys the status of the game at the given index."
 	  (1+ (/ index 2)))
       1)))
 
-(defsubst chess-game-side-to-move (game)
-  (chess-pos-side-to-move (chess-game-pos game)))
+(defsubst chess-game-side-to-move (game &optional index)
+  (= (mod (or index (chess-game-index game)) 2) 0))
 
 (defun chess-game-ply (game &optional index)
   "Return the position related to GAME's INDEX position."
@@ -193,6 +193,13 @@ This conveys the status of the game at the given index."
   (chess-game-run-hooks game 'post-undo count))
 
 
+(defun chess-game-strip-annotations (game)
+  "Strip all annotations from the given GAME."
+  (dotimes (i (chess-game-index game))
+    (let ((position (chess-game-pos game i)))
+      (chess-pos-set-annotations position nil))))
+
+
 (defsubst chess-game-over-p (game)
   "Return the position related to GAME's INDEX position."
   (let ((last-ply (car (last game 2))))