Replace tabs with spaces

[gacela.git] / gacela / scene.scm

diff --git a/gacela/scene.scm b/gacela/scene.scm
index e969432c3314b2e05435d7f23a009408422f1a0d..4b66a1e9731048631add71edd5f9e255a89e44ea 100644 (file)
--- 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 play-game
-        (cons (scene-procedure scene) args)))
+  (apply start-game
+         (cons
+          (if (scene? scene)
+              (scene-procedure scene)
+              scene)
+          args)))