X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fscene.scm;h=f3803cdf7b4a2cf197a571dcee5d1c6615f400d9;hp=ccdc23e9c47d9e536859360fa2962efe99aa1b19;hb=39f20a9681fa52e854678fe5acb5b10e3244c1cd;hpb=cacab3e249f7706c33498a105be22e8447d14e64

diff --git a/gacela/scene.scm b/gacela/scene.scm
index ccdc23e..f3803cd 100644
--- a/gacela/scene.scm
+++ b/gacela/scene.scm
@@ -40,8 +40,16 @@
 ;;; Scene Procedures
 
 (define (display-scene scene . args)
-  (apply (scene-procedure scene) args))
+  (apply
+   (if (scene? scene)
+       (scene-procedure scene)
+       scene)
+   args))
 
 (define (run-scene scene . args)
   (apply start-game
-	 (cons (scene-procedure scene) args)))
+	 (cons
+	  (if (scene? scene)
+	      (scene-procedure scene)
+	      scene)
+	  args)))