# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1170013198 0
# Node ID d08d2bb89f98e6346569e9e1aa91e1171dfe5bdf
# Parent  2a056be108dfbea0d29fd3c218b2f4faf6d6fa4a
(tetris-new-shape): Stop drawing if game is over.

diff -r 2a056be108df -r d08d2bb89f98 lisp/play/tetris.el
--- a/lisp/play/tetris.el	Sun Jan 28 19:39:44 2007 +0000
+++ b/lisp/play/tetris.el	Sun Jan 28 19:39:58 2007 +0000
@@ -362,9 +362,9 @@
   (setq tetris-pos-y 0)
   (if (tetris-test-shape)
       (tetris-end-game)
-    (tetris-draw-shape))
-  (tetris-draw-next-shape)
-  (tetris-update-score))
+    (tetris-draw-shape)
+    (tetris-draw-next-shape)
+    (tetris-update-score)))
 
 (defun tetris-draw-next-shape ()
   (loop for y from 0 to 3 do