- ;; @@: 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 (@@ (mudsync room) <exit>)
- #:name name
- #:to-symbol to-symbol
- #:desc desc))))
-