diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-17 01:33:42 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-17 01:33:42 +0000 |
| commit | 4d1c4c72b5a9c2c0180531246389a452fc034bc8 (patch) | |
| tree | 451683c6b2afe9808a468e74446b828f7809e2c6 | |
| parent | 0a7853b21f28d776e51b70a843fea57681ace069 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-ply.el | 3 | ||||
| -rw-r--r-- | chess-pos.el | 5 |
2 files changed, 4 insertions, 4 deletions
diff --git a/chess-ply.el b/chess-ply.el index 1d42f53..f44553b 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -248,7 +248,8 @@ maneuver." (let ((target (or pos (chess-incr-index candidate rank-adj file-adj)))) (if (and (or (not specific-target) (= target specific-target)) - (chess-pos-legal-moves position color target candidate)) + (chess-pos-legal-moves position color target + (list candidate))) (if chess-ply-throw-if-any (throw 'any-found t) (let ((ply (chess-ply-create position t candidate target))) diff --git a/chess-pos.el b/chess-pos.el index 9fe2648..9564d6d 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -527,13 +527,12 @@ indices which indicate where a piece may have moved from." ;; been eliminated. (if (and candidates (char-valid-p piece)) (setq candidates - (apply 'chess-pos-legal-moves - position color target candidates))) + (chess-pos-legal-moves position color target candidates))) ;; return the final list of candidate moves candidates)) -(defun chess-pos-legal-moves (position color target &rest candidates) +(defun chess-pos-legal-moves (position color target candidates) "Test if TARGET can legally be reached by any of CANDIDATES. Return the list of candidates that can reach it. |