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

diff --git a/gacela/scene.scm b/gacela/scene.scm
index 62b1a1e..e969432 100644
--- a/gacela/scene.scm
+++ b/gacela/scene.scm
@@ -39,9 +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)
-  (play-game
-   (scene-procedure scene)))
+(define (run-scene scene . args)
+  (apply play-game
+	 (cons (scene-procedure scene) args)))