X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela%2Fscene.scm;h=ccdc23e9c47d9e536859360fa2962efe99aa1b19;hb=b3ed8042f846f5d943c7811434018c4e7281ad4b;hp=0cf05e430993202a45890b8ba3427cc1de968e1a;hpb=09d84b94c312d54359126d22c45499b67490c949;p=gacela.git

diff --git a/gacela/scene.scm b/gacela/scene.scm
index 0cf05e4..ccdc23e 100644
--- a/gacela/scene.scm
+++ b/gacela/scene.scm
@@ -16,6 +16,7 @@
 
 
 (define-module (gacela scene)
+  #:use-module (gacela game)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
   #:export (make-scene
@@ -38,8 +39,9 @@
 
 ;;; Scene Procedures
 
-(define (display-scene scene)
-  ((scene-procedure scene)))
+(define (display-scene scene . args)
+  (apply (scene-procedure scene) args))
 
-(define (run-scene scene)
-  ((scene-procedure scene)))
+(define (run-scene scene . args)
+  (apply start-game
+	 (cons (scene-procedure scene) args)))