From 10ecf85f819a1f66a5e6ce44342594522425c6fc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 21 Oct 2021 18:37:11 -0400
Subject: kernel: Fix REPL and FPS counter sleep calls.

---
 starling/kernel.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/starling/kernel.scm b/starling/kernel.scm
index 89c4fd4..c46aabf 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -178,7 +178,7 @@
         #:scene-mux kernel))
     (run-script kernel
       (forever
-       (sleep 60)
+       (sleep 1.0)
        (update-fps (& kernel fps) (fps kernel))))))
 
 (define-method (on-key-press (kernel <kernel>) key modifiers repeat?)
@@ -189,7 +189,7 @@
       (match key
         ('backquote
          (run-script kernel
-           (sleep 1)
+           (sleep (current-timestep))
            (open-repl (repl kernel))))
         ('x
          (if (or (memq 'left-alt modifiers)
@@ -200,7 +200,7 @@
              ;; minibuffer, thus adding an "x" to the user text entry
              ;; area before the user has actually typed anything.
              (run-script kernel
-               (sleep 1)
+               (sleep (current-timestep))
                (open-minibuffer (minibuffer kernel)))
              (next-method)))
         ('escape (abort-game))
-- 
cgit v1.2.3