#:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu)
#:export (make-scene
- display-scene
- run-scene))
+ display-scene
+ run-scene))
;;; Scene Type
(define (run-scene scene . args)
(apply start-game
- (cons
- (if (scene? scene)
- (scene-procedure scene)
- scene)
- args)))
+ (cons
+ (if (scene? scene)
+ (scene-procedure scene)
+ scene)
+ args)))