diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:48:50 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:48:50 +0000 |
| commit | e15c5ad70e32debce094a3c53caf875afb648338 (patch) | |
| tree | dd9fae690a589921781943cfc05474ebf01dfb3d /chess-ply.el | |
| parent | 4f7271d9ea4f82eb316b05a54bac9030d1127c8e (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chess-ply.el b/chess-ply.el index 22e22d7..5d0836c 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -251,14 +251,15 @@ criteria." (if (null keywords) (let ((plies (list t))) (dolist (p '(?P ?R ?N ?B ?K ?Q ?p ?r ?n ?b ?k ?q)) - (nconc plies (chess-legal-plies position p))) + (nconc plies (chess-legal-plies position :piece p))) (cdr plies)) (if (memq :color keywords) (let ((plies (list t)) (color (cadr (memq :color keywords)))) (dolist (p '(?P ?R ?N ?B ?K ?Q)) (nconc plies (chess-legal-plies position - (if color p (downcase p))))) + :piece (if color p + (downcase p))))) (cdr plies)) (let* ((piece (cadr (memq :piece keywords))) (color (if piece (< piece ?a) |