[elpa] 39/255: passing all tests

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit f191b23c19dd23ce643c334081cf9d1255933e8c
Author: Eric Schulte <address@hidden>
Date:   Thu May 17 16:49:46 2012 -0400

    passing all tests
---
 sgf.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/sgf.el b/sgf.el
index 64bbb12..a350f66 100644
--- a/sgf.el
+++ b/sgf.el
@@ -433,8 +433,9 @@
          (friendly-neighbors (delete nil (map 'list (lambda (n v)
                                                       (when (equal v val) n))
                                               neighbors neighbor-vals)))
-         (already (cons piece (append friendly-neighbors already))))
-    (or (some (lambda (v) (not (equal v enemy)))     ; touching open space
+         (already (cons piece already)))
+    (or (some (lambda (v) (not (or (equal v enemy) ; touching open space
+                              (equal v val))))
               neighbor-vals)
         (some (lambda (n) (alive-p board n already)) ; touching alive dragon
               friendly-neighbors))))