[elpa] 01/02: [gnugo int] Add abstraction: nn

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 43bcfe8afd82090eb7cab8be9a742013e4e12f23
Author: Thien-Thi Nguyen <address@hidden>
Date:   Tue Mar 18 11:52:25 2014 +0100

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

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index b89138c..65d5e32 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/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)))))