X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fscene.scm;h=e969432c3314b2e05435d7f23a009408422f1a0d;hp=e62048021a414f34de219e179378b9983ee84029;hb=ee72c2bc37b7d06fbf90b27fa8e45e6f2d4e27bc;hpb=475d22be2375535402165d3373fae03a028886f2 diff --git a/gacela/scene.scm b/gacela/scene.scm index e620480..e969432 100644 --- a/gacela/scene.scm +++ b/gacela/scene.scm @@ -42,6 +42,6 @@ (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)))