[elpa] 01/01: [gnugo int] Use ‘dolis t’, ‘destructuring-bind’ more.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 506757a924867d573c799371646e8708de892d3e
Author: Thien-Thi Nguyen <address@hidden>
Date:   Tue Mar 4 10:33:36 2014 +0100

    [gnugo int] Use ‘dolist’, ‘destructuring-bind’ more.
    
    * packages/gnugo/gnugo.el (gnugo-board-mode): ...here,
    instead of ‘mapc’ + ‘apply’, for post-‘-l’ fixup.
---
 packages/gnugo/gnugo.el |   12 +++++-------
 1 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 274b563..43ee423 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1724,13 +1724,11 @@ In this mode, keys do not self insert.
     ;; Emacs is too protective sometimes, blech.
     (set-process-query-on-exit-flag (gnugo-get :proc) nil)
     (when (or minus-l infile)
-      (mapc (lambda (x)
-              (apply (lambda (prop q)
-                       (set prop (string-to-number (gnugo-query q))))
-                     x))
-            '((board-size "query_boardsize")
-              (komi       "get_komi")
-              (handicap   "get_handicap"))))
+      (dolist (x '((board-size "query_boardsize")
+                   (komi       "get_komi")
+                   (handicap   "get_handicap")))
+        (destructuring-bind (prop q) x
+          (set prop (string-to-number (gnugo-query q))))))
     (gnugo-put :diamond (substring (process-name (gnugo-get :proc)) 5))
     (gnugo-put :gnugo-color (gnugo-other (gnugo-get :user-color)))
     (gnugo-put :highlight-last-move-spec