From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Jun 2022 19:52:11 +0000 (+0200)
Subject: Fix logic in previous Tetris change
X-Git-Tag: emacs-29.0.90~1447^2~1549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de30e8c0decf6b76beef332f19d3745ec162fc5b;p=emacs.git

Fix logic in previous Tetris change

* lisp/play/tetris.el (tetris-new-shape): Fix logic in previous
change.
---

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)