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

diff --git a/gacela/scene.scm b/gacela/scene.scm
index ccdc23e..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
@@ -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)))