diff options
| -rw-r--r-- | starling/kernel.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm index 742a183..3efd468 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -389,23 +389,20 @@ kernel. A convenient procedure for developers." (display "rebooting\n") (reboot (current-scene (current-kernel)))) -(define (pause-current-scene) +(define-minibuffer-command pause (pause (current-scene (current-kernel)))) -(define (resume-current-scene) +(define-minibuffer-command resume (resume (current-scene (current-kernel)))) -(define (show-fps) +(define-minibuffer-command show-fps (show (& (current-kernel) fps))) -(define (hide-fps) +(define-minibuffer-command hide-fps (hide (& (current-kernel) fps))) -(add-minibuffer-command "reboot" reboot-current-scene) -(add-minibuffer-command "pause" pause-current-scene) -(add-minibuffer-command "resume" resume-current-scene) -(add-minibuffer-command "show-fps" show-fps) -(add-minibuffer-command "hide-fps" hide-fps) +(define-minibuffer-command reboot + (reboot-current-scene)) (define-meta-command ((debug-game starling) repl) "debug-game |