diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-01-05 08:19:53 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-01-05 08:19:53 -0500 |
| commit | 36211bf240e450b53892d62cf256bf6f5f2ddc01 (patch) | |
| tree | c3a0fc6d16601117f256650fdfa21f72b0986a11 | |
| parent | d253d1db79eba8cc110f79af2d4a9aea6fa9be02 (diff) | |
kernel: Use define-minibuffer-command.
| -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 |