More keyboard events

[gacela.git] / gacela / scene.scm

diff --git a/gacela/scene.scm b/gacela/scene.scm
index 9145907347b4e505a935fbb17d2614c5d37463fc..f3803cdf7b4a2cf197a571dcee5d1c6615f400d9 100644 (file)
--- a/gacela/scene.scm
+++ b/gacela/scene.scm
@@ -39,9 +39,17 @@
 
 ;;; Scene Procedures
 
-(define (display-scene scene)
-  ((scene-procedure scene)))
-
-(define (run-scene scene)
-  (run-game-loop
-   (scene-procedure scene)))
+(define (display-scene scene . args)
+  (apply
+   (if (scene? scene)
+       (scene-procedure scene)
+       scene)
+   args))
+
+(define (run-scene scene . args)
+  (apply start-game
+        (cons
+         (if (scene? scene)
+             (scene-procedure scene)
+             scene)
+         args)))