From 4ea336421278bc50c6621c86fd8310c75d47de62 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 31 Jul 2013 23:21:50 -0400
Subject: Spawn REPL server when game loop starts.

---
 2d/game-loop.scm | 3 +++
 1 file changed, 3 insertions(+)

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