diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-10-21 18:37:11 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-10-21 18:37:11 -0400 |
| commit | 10ecf85f819a1f66a5e6ce44342594522425c6fc (patch) | |
| tree | 22f5d2520676fe669fcbdcba38faafa7e74aa73f | |
| parent | a1a9494515a25d00f4065e7bfa145acec4da8b73 (diff) | |
kernel: Fix REPL and FPS counter sleep calls.
| -rw-r--r-- | starling/kernel.scm | 6 |
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)) |