[elpa] 01/03: [gnugo int] Decruft: Consolidate "breathe in" loops.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 714aa797220470d3187f65a0add3411e191ab740
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Apr 7 11:04:19 2014 +0200

    [gnugo int] Decruft: Consolidate "breathe in" loops.
    
    * packages/gnugo/gnugo.el (gnugo-frolic-in-the-leaves):
    ...here, as :monkey no longer confers a priori move-number info.
---
 packages/gnugo/gnugo.el |   27 +++++----------------------
 1 files changed, 5 insertions(+), 22 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index c27ac61..a953a5c 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -770,19 +770,7 @@ are dimmed.  The buffer is in View minor mode."
          (fsi (fmt &rest args)
               (insert (apply 'format fmt args))))
       ;; breathe in
-      (let ((monkey-on-main-line (zerop bidx))
-            fixup)
-        ;; monkey knows a lot
-        (loop with acc
-              for node in (aref monkey 0)
-              do (puthash node bidx seen)
-              if (gnugo--move-prop node)
-              do (push node acc)
-              finally do (progn
-                           (unless monkey-on-main-line
-                             (setq fixup (apply 'vector acc)))
-                           (aset eert bidx acc)))
-        ;; but monkey does not know everything
+      (let ()
         (loop
          for bx below width
          do (loop
@@ -794,14 +782,6 @@ are dimmed.  The buffer is in View minor mode."
                         ((link (other)
                                (push other (gethash node soil))))
                       (let ((move-num (gethash node mnum)))
-                        (when (< bx fork)
-                          (assert (and (not monkey-on-main-line)
-                                       (= fork bidx)))
-                          (loop for old in ls
-                                while (< bx (on old))
-                                do (puthash old bx seen))
-                          (when (< move-num (length fixup))
-                            (link (aref fixup move-num))))
                         ;; ugh, wasteful
                         (when (setq bef (copy-sequence (aref eert fork)))
                           (setcdr (nthcdr (1- move-num) bef)
@@ -812,7 +792,10 @@ are dimmed.  The buffer is in View minor mode."
                   (puthash node bx seen)
                   (when (gnugo--move-prop node)
                     (push node acc)))
-             until fork)))
+             until fork
+             finally do (unless fork
+                          (assert (zerop bx))
+                          (aset eert bx acc)))))
       ;; breathe out
       (switch-to-buffer buf)
       (when view-mode