changes

1 files changed, 7 insertions, 5 deletions

diff --git a/chess-ply.el b/chess-ply.el
index 172c154..65c11b7 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -45,6 +45,7 @@
 ;;; Code:
 
 (require 'chess-pos)
+(require 'chess-standard)
 
 (defgroup chess-ply nil
   "Routines for manipulating chess plies."
@@ -69,19 +70,20 @@
 (defsubst chess-ply-create (position &rest changes)
   (cons position changes))
 
-(defun chess-legal-plies (position color)
-  "Return a list of all legal plies in POSITION for COLOR."
+(defun chess-legal-plies (position &optional search-func)
+  "Return a list of all legal plies in POSITION."
   (let (plies)
     (dotimes (rank 8)
       (dotimes (file 8)
 	(let* ((to (chess-rf-to-index rank file))
 	       (piece (chess-pos-piece position to)))
 	  (when (or (eq piece ? )
-		    (if color
+		    (if (chess-pos-side-to-move position)
 			(> piece ?a)
 		      (< piece ?a)))
-	    (dolist (candidate (funcall (car chess-modules)
-					nil nil 'search position to t))
+	    (dolist (candidate (funcall (or search-func
+					    chess-standard-search)
+					position to t))
 	      (push (chess-ply-create position candidate to)
 		    plies))))))
     plies))