Merge pull request #1214 from garlic0x1/tetris-fix

Tetris fix
lem-project · Jan 1, 2024 · 45aa62b · 45aa62b
2 parents 51aefec + b02d128
commit 45aa62b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/contrib/tetris/tetris.lisp b/contrib/tetris/tetris.lisp
@@ -216,8 +216,8 @@
         (when (< 0 (- (floor *delete-nlines* 4)
                       (floor prev-nlines 4)))
           (incf *level*)
-          (when (< 100 (timer-ms *timer*))
-            (decf (timer-ms *timer*) 100)))))))
+          (when (< 100 (lem/common/timer:timer-ms *timer*))
+            (decf (lem/common/timer:timer-ms *timer*) 100)))))))
 
 (defun gameover-p ()
   (loop :for x :from 1 :below (1- +field-width+) :do

diff --git a/src/common/timer.lisp b/src/common/timer.lisp
@@ -15,6 +15,7 @@
    :stop-timer
    :with-idle-timers
    :update-idle-timers
+   :timer-ms
    :get-next-timer-timing-ms)
   #+sbcl
   (:lock t))