- #:init-value
- (make-action-dispatch
- ;; desc == description
- (get-desc
- (simple-slot-getter 'desc))
- (get-name
- (simple-slot-getter 'name))
- ((register-occupant! actor message who)
- "Register an actor as being a occupant of this room"
- (hash-set! (slot-ref actor 'occupants) who #t))
- ((evict-occupant! actor message who)
- "De-register an occupant removed from the room"
- (hash-remove! (slot-ref actor 'occupants) who))
- (wire-exits! (wrap-apply room-wire-exits!)))))
+ ;; @@: Can remove this indirection once things settle
+ #:init-value (wrap-apply room-action-dispatch)))
+
+
+(define room-actions
+ (build-actions
+ ;; desc == description
+ (wire-exits! (wrap-apply room-wire-exits!))))
+
+(define room-actions*
+ (append room-actions gameobj-actions))
+
+(define room-action-dispatch
+ (simple-dispatcher room-actions*))
+