[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 06/07: [gnugo int] Make ‘gnug o--no-regrets’ take ENDS directly.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 06/07: [gnugo int] Make ‘gnug o--no-regrets’ take ENDS directly. |
Date: |
Sat, 05 Apr 2014 11:09:31 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 6e77337dd73e711d8a56568fd0988fb6943621d0
Author: Thien-Thi Nguyen <address@hidden>
Date: Sat Apr 5 12:27:00 2014 +0200
[gnugo int] Make ‘gnugo--no-regrets’ take ENDS directly.
* packages/gnugo/gnugo.el (gnugo--no-regrets): ...here.
(gnugo-note, gnugo-magic-undo): Update calls.
---
packages/gnugo/gnugo.el | 11 ++++++-----
1 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 459924c..abf27f5 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -935,8 +935,8 @@ are dimmed. The buffer is in View minor mode."
(defsubst gnugo--passp (string)
(string= "PASS" string))
-(defsubst gnugo--no-regrets (monkey tree)
- (eq (aref (gnugo--tree-ends tree) (aref monkey 1))
+(defsubst gnugo--no-regrets (monkey ends)
+ (eq (aref ends (aref monkey 1))
(aref monkey 0)))
(defun gnugo-note (property value &optional mogrifyp)
@@ -978,7 +978,7 @@ are dimmed. The buffer is in View minor mode."
for i
;; Start with latest / highest likelihood for hit.
;; todo: prune unfeasible candidates
- from (if (gnugo--no-regrets monkey tree)
+ from (if (gnugo--no-regrets monkey ends)
1
0)
below count
@@ -1002,7 +1002,7 @@ are dimmed. The buffer is in View minor mode."
;; no => construct
finally do
(progn
- (unless (gnugo--no-regrets monkey tree)
+ (unless (gnugo--no-regrets monkey ends)
;; <grumble grumble> SGF sez "move" node in the root
;; position of a (sub-)gametree is "bad style". :-/
(gnugo--set-tree-ends
@@ -1683,7 +1683,8 @@ when play resumes."
(user-color (gnugo-get :user-color))
(monkey (gnugo-get :monkey))
(tree (gnugo-get :sgf-gametree))
- (remorseful (not (gnugo--no-regrets monkey tree)))
+ (remorseful (not (gnugo--no-regrets
+ monkey (gnugo--tree-ends tree))))
done ans)
(cond ((numberp spec)
(setq n (if (zerop spec)
- [elpa] branch master updated (0a73626 -> 3f390d3), Thien-Thi Nguyen, 2014/04/05
- [elpa] 02/07: [gnugo int] Avoid double list-reverse., Thien-Thi Nguyen, 2014/04/05
- [elpa] 03/07: [gnugo] Support SGF[4] parsing from string data., Thien-Thi Nguyen, 2014/04/05
- [elpa] 04/07: [gnugo int] Use ‘gnugo /sgf-create’ more., Thien-Thi Nguyen, 2014/04/05
- [elpa] 06/07: [gnugo int] Make ‘gnug o--no-regrets’ take ENDS directly.,
Thien-Thi Nguyen <=
- [elpa] 07/07: [gnugo] Declare dependency on ‘ascii-art-to-unicode’., Thien-Thi Nguyen, 2014/04/05
- [elpa] 05/07: [gnugo int] Add abstractions: gnugo--{, set-}tree-ends, Thien-Thi Nguyen, 2014/04/05
- [elpa] 01/07: [gnugo int] Specify STREAM to ‘pp’ directly., Thien-Thi Nguyen, 2014/04/05