[elpa] externals/gnugo a7f01be 083/357: [gnugo int] Add abstraction: nn

[Stefan Monnier]

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

    [gnugo int] Add abstraction: nn
    
    * packages/gnugo/gnugo.el (gnugo-move-history nn): New internal func.
---
 gnugo.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnugo.el b/gnugo.el
index b89138c..65d5e32 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -659,6 +659,7 @@ For all other values of RSEL, do nothing and return nil."
                                  (format "%s%s" move (car mprop))
                                move)
                              acc)))
+         (nn () (next nil))
          (tell () (message "(%d moves) %s"
                            (length acc)
                            (mapconcat 'identity (nreverse acc) " ")))
@@ -666,8 +667,8 @@ For all other values of RSEL, do nothing and return nil."
       (pcase rsel
         (`(4) (finish t))
         (`nil (finish nil))
-        (`car              (car (next nil)))
-        (`cadr  (next nil) (car (next nil)))
+        (`car        (car (nn)))
+        (`cadr  (nn) (car (nn)))
         (`count (aref monkey 2))
         (_ nil)))))