;;; 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
- (scene-procedure scene)))
+(define (run-scene scene . args)
+ (apply play-game
+ (cons (scene-procedure scene) args)))