~zck/game-2048 commit - sourcehut hg

d4ea6d952fae — Zachary Kanfer 10 years ago

Oops, fix 2048-down. We need to actually call number-sequence.

patch browse

1 files changed, 1 insertions(+), 1 deletions(-)

M 2048-game.el

M 2048-game.el +1 -1

@@ 461,7 461,7 @@ Returns t if we were able to move; other
                                                 nil))
    (let ((has-moved nil))
      (dotimes (col *2048-columns*)
-       (dolist (row (- *2048-rows* 2) 0 -1)
+       (dolist (row (number-sequence (- *2048-rows* 2) 0 -1))
          (setq has-moved (or (2048-move row col 1 0)
                              has-moved))))
      (when has-moved