[elpa] 04/07: [gnugo frolic int] Assign ‘pop’ rv to avoid byte-compiler warning.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 26fd3d8fe1c11651bdacdb4363581de7a6cfbe84
Author: Thien-Thi Nguyen <address@hidden>
Date:   Wed Apr 9 07:03:40 2014 +0200

    [gnugo frolic int] Assign ‘pop’ rv to avoid byte-compiler warning.
    
    * packages/gnugo/gnugo.el (gnugo-frolic-prune-branch):
    ...here; also, let ‘pop’ handle ‘(zerop a)’ case internally.
---
 packages/gnugo/gnugo.el |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index ea37ef1..f74c489 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1027,10 +1027,9 @@ This fails if the monkey is on the current branch
    (setq line (save-excursion
                 (when (re-search-backward "^ *[0-9]+ [BW]" nil t)
                   (match-string 0))))
-   (let ((new (append ends nil)))
-     (if (zerop a)
-         (pop new)
-       (pop (nthcdr a new)))
+   (let* ((new (append ends nil))
+          ;; Gratuitous ‘pop’ rv assignment avoids byte-compiler warning.
+          (bye (pop (nthcdr a new))))
      (gnugo--set-tree-ends tree (apply 'vector new)))
    (when (< a bidx)
      (aset monkey 1 (decf bidx)))