From 36211bf240e450b53892d62cf256bf6f5f2ddc01 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 5 Jan 2021 08:19:53 -0500 Subject: kernel: Use define-minibuffer-command. --- starling/kernel.scm | 15 ++++++--------- 1 file 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 -- cgit v1.2.3