summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/kernel.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm
index 2325cdc..6e07edc 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -57,7 +57,8 @@
current-kernel
boot-kernel
elapsed-time
- fps)
+ fps
+ reboot-current-scene)
#:re-export (abort-game))
(define-class <window-config> ()
@@ -283,6 +284,11 @@
(deactivate kernel)
(close-window! (window kernel))))))
+(define (reboot-current-scene)
+ "Reboot the currently active scene being managed by the game engine
+kernel. A convenient procedure for developers."
+ (reboot (current-scene (current-kernel))))
+
(define-meta-command ((debug-game starling) repl)
"debug-game
Enter a debugger for the current game loop error."