From de30e8c0decf6b76beef332f19d3745ec162fc5b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 21 Jun 2022 21:52:11 +0200 Subject: [PATCH] Fix logic in previous Tetris change * lisp/play/tetris.el (tetris-new-shape): Fix logic in previous change. --- lisp/play/tetris.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index af1004e0811..d9bc0dd020c 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el @@ -364,8 +364,8 @@ each one of its four blocks.") (setq tetris-shape tetris-next-shape) (setq tetris-rot 0) (setq tetris-next-shape (if tetris-allow-repetitions - (tetris--seven-bag) - (random 7))) + (random 7) + (tetris--seven-bag))) (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2)) (setq tetris-pos-y 0) (if (tetris-test-shape) -- 2.39.2