diff options
| -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)) |