[elpa] 01/02: [gnugo int] Use ‘pop ’ more.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit a3f73e1496db437b69943338603ecff086d11fe1
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sun Mar 23 21:48:25 2014 +0100

    [gnugo int] Use ‘pop’ more.
    
    * packages/gnugo/gnugo.el (gnugo-move-history next): ...here.
---
 packages/gnugo/gnugo.el |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 6d7a603..5a0ef59 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -658,11 +658,10 @@ For all other values of RSEL, do nothing and return nil."
          (as-pos-maybe (x) (if (string= "resign" x)
                                x
                              (as-pos x)))
-         (next (byp) (when (setq node (caar mem)
+         (next (byp) (when (setq node (car (pop mem))
                                  mprop (or (assq :B node)
                                            (assq :W node)))
-                       (setq move (as-pos-maybe (cdr mprop))
-                             mem (cdr mem))
+                       (setq move (as-pos-maybe (cdr mprop)))
                        (push (if byp
                                  (format "%s%s" move (car mprop))
                                move)