Commits

Christian Kellermann committed a35b557

Honor the minimum wait parameter

Comments (0)

Files changed (1)

               escape)
              (show!)
              (set! last now)
-             (when
-                 minimum-wait
-               (thread-sleep! minimum-wait))
+             (when (and minimum-wait (< dt minimum-wait))
+               (thread-sleep! (- minimum-wait dt)))
              (loop)))))
       ((world-ends))
       (sdl-quit))))