Spawn REPL server when game loop starts.

1 files changed, 3 insertions, 0 deletions

diff --git a/2d/game-loop.scm b/2d/game-loop.scm
index affdb8b..a4c6e29 100644
--- a/2d/game-loop.scm
+++ b/2d/game-loop.scm
@@ -26,6 +26,7 @@
   #:use-module (figl gl)
   #:use-module (2d agenda)
   #:use-module (2d coroutine)
+  #:use-module (2d repl server)
   #:export (on-active-hook
             on-resize-hook
             on-quit-hook
@@ -177,6 +178,8 @@ is the unused accumulator time."
                  (+ next-time tick-interval)
                  remainder)))
 
+  ;; Start REPL for live coding wonders.
+  (spawn-server)
   (agenda-schedule show-fps)
   (let ((time (SDL:get-ticks)))
     (game-loop time (+ time tick-interval) 0)))