emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/gnugo c3b3c3f 123/357: [gnugo int] Fix bug: Detect case


From: Stefan Monnier
Subject: [elpa] externals/gnugo c3b3c3f 123/357: [gnugo int] Fix bug: Detect case for KIDS addition correctly.
Date: Sun, 29 Nov 2020 14:51:03 -0500 (EST)

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

    [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.
---
 gnugo.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnugo.el b/gnugo.el
index cbd4c86..8057f5b 100644
--- a/gnugo.el
+++ b/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)))



reply via email to

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