*** no comment ***

2 files changed, 8 insertions, 11 deletions

diff --git a/TODO b/TODO
index 5c1a3bb..305c782 100644
--- a/TODO
+++ b/TODO
@@ -6,6 +6,7 @@
   bughouse/crazyhouse
   analysis/highlight tools
   database interaction (chess-file.el, chess-scid.el)
+  full ICS interaction
 
 ----------------------------------------------------------------------
 
@@ -19,9 +20,6 @@
 
 - when announcing abiguous pieces, name the rank/file ("e pawn")
 
-- there needs to be much more robustness; it's too easy to get the
-  game into an unplayable state right now
-
 ----------------------------------------------------------------------
 
 - Read-only mode needs to be a bit more vigorous.  There's nothing
diff --git a/chess-ics.el b/chess-ics.el
index d0a3042..510fd69 100644
--- a/chess-ics.el
+++ b/chess-ics.el
@@ -131,14 +131,13 @@ who is black."
     (assert game)
     (if (and (chess-game-data game 'active)
 	     (> (chess-game-index game) 0))
-	(when (and (cadr info)
-		   (eq (chess-pos-side-to-move (car info))
-		       (chess-game-data game 'my-color)))
-	  (chess-engine-do-move
-	   (chess-algebraic-to-ply
-	    (chess-ply-pos (car (last (chess-game-plies game))))
-	    (cadr info) t))
-	  (assert (equal (car info) (chess-engine-position nil))))
+	(if (and (cadr info)
+		 (eq (chess-pos-side-to-move (car info))
+		     (chess-game-data game 'my-color)))
+	    (chess-engine-do-move
+	     (chess-algebraic-to-ply
+	      (chess-ply-pos (car (last (chess-game-plies game))))
+	      (cadr info) t)))
       (let ((chess-game-inhibit-events t) plies)
 	(chess-game-set-data game 'my-color (string= (nth 2 info)
 						     chess-ics-handle))