From fe4a2816f53dcc1b64e7fdfa638fdd7c7db49a1a Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Tue, 19 Jul 2022 20:27:19 +0200
Subject: Remove unneeded calls to exact<->inexact

---
 bytepusher.scm | 4 ++--
 1 file 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
-- 
cgit v1.2.3