diff options
| -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 |