From 93633116cc3f3ffc01cb62cddf1222c50c816b4c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 23 Oct 2013 22:50:17 -0400
Subject: Add temporary dummy procedure.

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

(limited to '2d')

diff --git a/2d/stage.scm b/2d/stage.scm
index 91afe97..8dc7386 100644
--- a/2d/stage.scm
+++ b/2d/stage.scm
@@ -35,6 +35,7 @@
             exit-stage
             draw-stage
             update-stage
+            stage-trigger
             stage-define
             stage-ref
             stage-set!
@@ -78,6 +79,9 @@
   "Call the scene draw callback for STAGE."
   ((scene-draw (stage-scene stage))))
 
+(define (stage-trigger stage event . args)
+  #f)
+
 ;;;
 ;;; Stage environment
 ;;;
-- 
cgit v1.2.3