summaryrefslogtreecommitdiff
path: root/bytepusher.scm
diff options
context:
space:
mode:
Diffstat (limited to 'bytepusher.scm')
-rw-r--r--bytepusher.scm4
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