[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gnugo 5eeb99b 087/357: [gnugo int] Use ‘incf’ more.

From: Stefan Monnier
Subject: [elpa] externals/gnugo 5eeb99b 087/357: [gnugo int] Use ‘incf’ more.
Date: Sun, 29 Nov 2020 14:50:55 -0500 (EST)

branch: externals/gnugo
commit 5eeb99bc58cfd022b980c570a0800b5504d819b7
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [gnugo int] Use ‘incf’ more.
    * packages/gnugo/gnugo.el (gnugo-note, gnugo-refresh): ...here.
 gnugo.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnugo.el b/gnugo.el
index 2f3db1c..889f799 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -705,7 +705,7 @@ For all other values of RSEL, do nothing and return nil."
           (setcdr loc (list fruit))
           (aset monkey 0 (setq loc (cdr loc)))
           (aset monkey 1 (cons loc mem))
-          (aset monkey 2 (1+ (aref monkey 2))))
+          (incf (aref monkey 2)))
       (setcdr (last (car loc)) fruit))))
 (defun gnugo-close-game (end-time resign)
@@ -977,7 +977,7 @@ its move."
                  (let (acc cut c)
                    (while (setq cut (string-match "~[bwpmtu]" cur))
                      (aset cur cut ?%)
-                     (setq cut (1+ cut) c (aref cur cut))
+                     (setq c (aref cur (incf cut)))
                      (aset cur cut ?s)
                       `(,(intern (format "squig-%c" c))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]