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 af1004e08111f2468020b903f5b5098aeaae16d1..d9bc0dd020c6047facde96cd62a1b1ecd15799fb 100644 (file)
--- 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)