X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela%2Fscene.scm;h=4b66a1e9731048631add71edd5f9e255a89e44ea;hb=5f298cad7dceabfa1a8f41bf71ae17b9554c0443;hp=62b1a1e8f5cb996cca44c48056c6a91939264401;hpb=f3487d80c29eb9a6ecc23686c5010bffb364af22;p=gacela.git

diff --git a/gacela/scene.scm b/gacela/scene.scm
index 62b1a1e..4b66a1e 100644
--- a/gacela/scene.scm
+++ b/gacela/scene.scm
@@ -20,8 +20,8 @@
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
   #:export (make-scene
-	    display-scene
-	    run-scene))
+            display-scene
+            run-scene))
 
 
 ;;; Scene Type
@@ -39,9 +39,17 @@
 
 ;;; Scene Procedures
 
-(define (display-scene scene)
-  ((scene-procedure scene)))
-
-(define (run-scene scene)
-  (play-game
-   (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)))