;;; 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 start-game
- (cons (scene-procedure scene) args)))
+ (cons
+ (if (scene? scene)
+ (scene-procedure scene)
+ scene)
+ args)))