chess-legal-plies: Stop generating duplicate castling moves.

1 files changed, 1 insertions, 18 deletions

diff --git a/chess-ply.el b/chess-ply.el
index c316eae..fef4bc3 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -428,24 +428,7 @@ position object passed in."
 		    (setq pos (apply 'chess-incr-index pos dir)))
 		(if (chess-pos-piece-p position pos (not color))
 		    (chess-ply--add nil nil pos))
-		(setq pos nil)))
-
-	    (when (= test-piece ?R)
-	      (if (eq candidate
-		      (chess-pos-can-castle position (if color ?K ?k)))
-		  (let ((changes (chess-ply-castling-changes position)))
-		    (if changes
-			(if chess-ply-throw-if-any
-			    (throw 'any-found t)
-			  (push (cons position changes) plies)))))
-
-	      (if (eq candidate
-		      (chess-pos-can-castle position (if color ?Q ?q)))
-		  (let ((changes (chess-ply-castling-changes position t)))
-		    (if changes
-			(if chess-ply-throw-if-any
-			    (throw 'any-found t)
-			  (push (cons position changes) plies))))))))
+		(setq pos nil)))))
 
 	 ;; the king is a trivial case of the queen, except when castling
 	 ((= test-piece ?K)