diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2022-07-19 20:27:19 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2022-07-19 20:27:19 +0200 |
| commit | fe4a2816f53dcc1b64e7fdfa638fdd7c7db49a1a (patch) | |
| tree | b7471b8937feed0a7cd691e2b02accefc32ec7e6 | |
| parent | 0b02de8d06856ad492b70584d5588ffd1449248b (diff) | |
| -rw-r--r-- | bytepusher.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytepusher.scm b/bytepusher.scm index 4c8671b..7555604 100644 --- a/bytepusher.scm +++ b/bytepusher.scm @@ -209,10 +209,10 @@ (render-copy renderer texture) (present-renderer renderer) (let* ((t1 (sdl-ticks)) - (frame-time (exact->inexact 1000/60)) + (frame-time 1000/60) (max-time (+ t0 frame-time))) (when (> max-time t1) - (usleep (inexact->exact (floor (* 1000 (- max-time t1)))))) + (usleep (floor (* 1000 (- max-time t1))))) (display (string-append "FPS: " (number->string |