(define-module (gacela scene)
+ #:use-module (gacela game)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu)
#:export (make-scene
;;; Scene Procedures
-(define (display-scene scene)
- ((scene-procedure scene)))
+(define (display-scene scene . args)
+ (apply (scene-procedure scene) args))
-(define (run-scene scene)
- ((scene-procedure scene)))
+(define (run-scene scene . args)
+ (apply play-game
+ (cons (scene-procedure scene) args)))