summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEkaitz Zarraga <ekaitz@elenq.tech>2022-07-19 20:27:19 +0200
committerEkaitz Zarraga <ekaitz@elenq.tech>2022-07-19 20:27:19 +0200
commitfe4a2816f53dcc1b64e7fdfa638fdd7c7db49a1a (patch)
treeb7471b8937feed0a7cd691e2b02accefc32ec7e6
parent0b02de8d06856ad492b70584d5588ffd1449248b (diff)
Remove unneeded calls to exact<->inexactHEADmaster
-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