eschulte pushed a commit to branch go
in repository elpa.
commit f191b23c19dd23ce643c334081cf9d1255933e8c
Author: Eric Schulte <[email protected]>
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))))
