master de30e8c0de 2/2: Fix logic in previous Tetris change

[Lars Ingebrigtsen]

branch: master
commit de30e8c0decf6b76beef332f19d3745ec162fc5b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 af1004e081..d9bc0dd020 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)