[elpa] 02/02: [gnugo int] Decruft: Delete unused local vars.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 681c4286d697021bfe7ed04aad0bf0d951a776fa
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Apr 11 12:14:05 2014 +0200

    [gnugo int] Decruft: Delete unused local vars.
    
    U (V, ...) ≡ "Delete local var V, ...".
    * packages/gnugo/gnugo.el
    (gnugo-move-history): U (col).
    (gnugo-frolic-in-the-leaves): U (node, count).
---
 packages/gnugo/gnugo.el |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index ab753f2..51fbbbe 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -689,7 +689,6 @@ For all other values of RSEL, do nothing and return nil."
   (let* ((monkey (gnugo-get :monkey))
          (mem (aref monkey 0))
          (as-pos (gnugo--as-pos-func (gnugo-get :SZ)))
-         col
          acc node mprop move)
     (cl-flet*
         ((as-pos-maybe (x) (if (string= "resign" x)
@@ -806,7 +805,7 @@ are dimmed.  Type \\[describe-mode] in that buffer for 
details."
       (loop
        for bx below width
        do (loop
-           with (node fork)
+           with fork
            for node in (aref ends bx)
            do (if (setq fork (on node))
                   (cl-flet
@@ -894,7 +893,6 @@ are dimmed.  Type \\[describe-mode] in that buffer for 
details."
         (when (progn (newline)
                      (setq forks (nreverse forks)))
           (let* ((margin (make-string 11 ?\s))
-                 (count (length forks))
                  (heads (mapcar #'car forks))
                  (tails (mapcar #'cdr forks)))
             (cl-flet*