[elpa] 01/03: chess-search-position: Use dolist instead of mapc.

[Mario Lang]

mlang pushed a commit to branch externals/chess
in repository elpa.

commit 6676272a5026cf0c7bd95d2d64fa840d46434df0
Author: Mario Lang <address@hidden>
Date:   Tue Jun 3 11:33:41 2014 +0200

    chess-search-position: Use dolist instead of mapc.
    
    mapc on a macro fails for obvious reasons.
---
 chess-pos.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/chess-pos.el b/chess-pos.el
index 11a2866..e2cabeb 100644
--- a/chess-pos.el
+++ b/chess-pos.el
@@ -84,8 +84,8 @@
 ;;; Code:
 
 (require 'chess-message)
+(require 'cl-lib)
 (eval-when-compile
-  (require 'cl-lib)
   (cl-proclaim '(optimize (speed 3) (safety 2))))
 
 (defgroup chess-pos nil
@@ -913,8 +913,8 @@ If NO-CASTLING is non-nil, do not consider castling moves."
 
       ;; test for knights and pawns
       (dolist (p (if piece '(?P ?N) '(?p ?n)))
-       (mapc 'chess--add-candidate
-             (chess-search-position position target p check-only no-castling)))
+       (dolist (cand (chess-search-position position target p check-only 
no-castling))
+          (chess--add-candidate cand)))
 
       ;; test whether the rook or king can move to the target by castling
       (unless no-castling