-(define (gm-init-rooms gm rooms-spec)
- "Initialize the prebuilt rooms"
- ;; @@: Would it be nicer to just allow passing in
- ;; #:exits to the room spec itself?
- (define (exit-from-spec exit-spec)
- "Take room exits syntax from the spec, turn it into exits"
- (match exit-spec
- ((name to-symbol desc)
- (make <exit>
- #:name name
- #:to-symbol to-symbol
- #:desc desc))))
-
- (define rooms