Customizing quit event behaviour

[gacela.git] / gacela / scene.scm

diff --git a/gacela/scene.scm b/gacela/scene.scm
index e62048021a414f34de219e179378b9983ee84029..ccdc23e9c47d9e536859360fa2962efe99aa1b19 100644 (file)
--- a/gacela/scene.scm
+++ b/gacela/scene.scm
@@ -42,6 +42,6 @@
 (define (display-scene scene . args)
   (apply (scene-procedure scene) args))
 
-(define (run-scene scene)
-  (play-game
-   (scene-procedure scene)))
+(define (run-scene scene . args)
+  (apply start-game
+        (cons (scene-procedure scene) args)))