summaryrefslogtreecommitdiff
path: root/starling/kernel.scm
diff options
context:
space:
mode:
Diffstat (limited to 'starling/kernel.scm')
-rw-r--r--starling/kernel.scm15
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