From e72cbea929a975ef64f1b043ed7913cf3daa6c20 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 3 Nov 2013 20:10:45 -0500
Subject: Add set-stage-scene!

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

diff --git a/2d/stage.scm b/2d/stage.scm
index bf966ab..29a9445 100644
--- a/2d/stage.scm
+++ b/2d/stage.scm
@@ -31,6 +31,7 @@
             stage-observer
             stage-env
             stage-scene
+            set-stage-scene!
             enter-stage
             exit-stage
             draw-stage
@@ -49,7 +50,7 @@
   (%make-stage agenda scene state)
   stage?
   (agenda stage-agenda)
-  (scene stage-scene)
+  (scene stage-scene set-stage-scene!)
   (state stage-state))
 
 (define (make-stage scene)
-- 
cgit v1.2.3