summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/kernel.scm6
1 files 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))