- (define hive (make-hive))
- (define new-conn-handler
- (make-default-room-conn-handler default-room))
- (define gm
- (bootstrap-actor-gimmie* hive <game-master> "gm"
- #:new-conn-handler new-conn-handler))
- (define injector
- (bootstrap-actor hive <gameobj-injector>
- #:gm (actor-id gm)))
+ (run-hive
+ (lambda (hive)
+ (define new-conn-handler
+ (make-default-room-conn-handler default-room))
+ (define gm
+ ;; (bootstrap-actor-gimmie* hive <game-master> "gm"
+ ;; #:new-conn-handler new-conn-handler)
+ (create-actor* <game-master> "gm"
+ #:new-conn-handler new-conn-handler))
+ (define injector
+ (create-actor <gameobj-injector>
+ #:gm gm))