[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [gnugo int] Use ‘setq ’ less.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [gnugo int] Use ‘setq ’ less. |
Date: |
Tue, 18 Mar 2014 19:47:10 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 342d5b3c385d81ca46bb4160b84f7bbfddbd71a4
Author: Thien-Thi Nguyen <address@hidden>
Date: Tue Mar 18 20:51:09 2014 +0100
[gnugo int] Use ‘setq’ less.
* packages/gnugo/gnugo.el (gnugo-move-history): ...here.
---
packages/gnugo/gnugo.el | 11 +++++------
1 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 889f799..e2d9fa0 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -640,12 +640,11 @@ moves thus far; if `two' the last two moves as a list,
oldest last.
For all other values of RSEL, do nothing and return nil."
(interactive "P")
- (let ((size (gnugo-get :SZ))
- col
- monkey mem
- acc node mprop move)
- (setq monkey (gnugo-get :monkey)
- mem (aref monkey 1))
+ (let* ((monkey (gnugo-get :monkey))
+ (mem (aref monkey 1))
+ (size (gnugo-get :SZ))
+ col
+ acc node mprop move)
(cl-labels
((as-pos (cc) (if (string= "tt" cc)
"PASS"