[elpa] 01/01: [gnugo int] Fix bug: Detect case for KIDS addition correctly.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit c03b0cb2d0e146ccda50b7cab07bb7282999b209
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sun Apr 6 12:46:42 2014 +0200

    [gnugo int] Fix bug: Detect case for KIDS addition correctly.
    
    Introduced 2014-04-05, "Expand gametree IR: MNUM, KIDS, ROOT".
    
    * packages/gnugo/gnugo.el (gnugo/sgf-create):
    For multiple-kids detection, phase 2, invert gate predicate.
---
 packages/gnugo/gnugo.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index cbd4c86..8057f5b 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -2519,7 +2519,8 @@ A collection is a list of gametrees, each a vector of 
four elements:
                                       0)
                                     (gethash prev mnum 0))
                             mnum)
-                   (unless (listp (gethash prev kids t))
+                   ;; phase 2
+                   (when (listp (gethash prev kids t))
                      (push node (gethash prev kids)))
                    (push node
                          ls))
@@ -2528,6 +2529,7 @@ A collection is a list of gametrees, each a vector of 
four elements:
                          ;; singular
                          (list ls)
                        ;; multiple
+                       ;; phase 1
                        (puthash node (list) kids)
                        (loop while (seek ?\()
                              append (TREE ls mnum kids)))