summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-07-31 23:21:50 -0400
committerDavid Thompson <dthompson2@worcester.edu>2013-07-31 23:21:50 -0400
commit4ea336421278bc50c6621c86fd8310c75d47de62 (patch)
treefade2d29cb9d1936ce9c08df6315edca2d5c4a43
parenteb7e0ec1d7236c69446709a6aa23526b18707dd1 (diff)
Spawn REPL server when game loop starts.
-rw-r--r--2d/game-loop.scm3
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)))