- (apply (scene-procedure scene) args))
-
-(define (run-scene scene)
- (play-game
- (scene-procedure scene)))
+ (apply
+ (if (scene? scene)
+ (scene-procedure scene)
+ scene)
+ args))
+
+(define (run-scene scene . args)
+ (apply start-game
+ (cons
+ (if (scene? scene)
+ (scene-procedure scene)
+ scene)
+ args)))