[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnugo 7c3a30f 100/357: [gnugo int] Use ‘pop’ more.

From: Stefan Monnier
Subject: [elpa] externals/gnugo 7c3a30f 100/357: [gnugo int] Use ‘pop’ more.
Date: Sun, 29 Nov 2020 14:50:58 -0500 (EST)

branch: externals/gnugo
commit 7c3a30f39e0387538e78fddc0f452ee8e4d04103
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

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

diff --git a/gnugo.el b/gnugo.el
index 6d7a603..5a0ef59 100644
--- a/gnugo.el
+++ b/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)
                              (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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]