diff options
| author | Mario Lang <mlang@delysid.org> | 2014-03-28 12:23:25 +0100 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-03-28 12:23:25 +0100 |
| commit | 04cfa2a95b8eb8fb9f2d9e40532890ac6f7a2e8b (patch) | |
| tree | f12c86e19c43df82dd6c1fa271f0f60c12b0b9be | |
| parent | 6ece68a4a2f5a413f48bb6816b25a41a9376ee3e (diff) | |
Pacify byte compiler.
| -rw-r--r-- | chess-polyglot.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/chess-polyglot.el b/chess-polyglot.el index a9a0551..ceb0050 100644 --- a/chess-polyglot.el +++ b/chess-polyglot.el @@ -48,7 +48,7 @@ (defsubst chess-polyglot-read-octets (n) "Read N octets from the current buffer." (let ((val 0)) - (dotimes (i n (progn (cl-assert (<= val most-positive-fixnum)) val)) + (dotimes (_ n (progn (cl-assert (<= val most-positive-fixnum)) val)) (setq val (logior (lsh val 8) (progn (forward-char 1) (preceding-char))))))) @@ -63,7 +63,7 @@ A `cons' with the most significant 32 bits in `car' and the least significant The result is a list of the form (FROM-INDEX TO-INDEX PROMOTION WEIGHT)." (let ((mask (chess-polyglot-read-octets 2))) (pcase (let (r) - (dotimes (i 5 r) + (dotimes (_ 5 r) (push (logand mask 7) r) (setq mask (ash mask -3)))) (`(,promotion ,from-rank ,from-file ,to-rank ,to-file) |