From 1b1fce7c0b21887a45dce29796300bd034c583a8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 20 Jun 2019 07:51:27 -0400
Subject: kernel: Add reboot-current-scene convenience method.

---
 starling/kernel.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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."
-- 
cgit v1.2.3