X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fscene.scm;h=e62048021a414f34de219e179378b9983ee84029;hp=62b1a1e8f5cb996cca44c48056c6a91939264401;hb=2a08d93dcd9a52442e59c185ac85d4344e716650;hpb=f3487d80c29eb9a6ecc23686c5010bffb364af22 diff --git a/gacela/scene.scm b/gacela/scene.scm index 62b1a1e..e620480 100644 --- a/gacela/scene.scm +++ b/gacela/scene.scm @@ -39,8 +39,8 @@ ;;; 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