(define-module (mudsync room)
#:use-module (mudsync command)
#:use-module (mudsync gameobj)
+ #:use-module (mudsync utils)
#:use-module (8sync actors)
#:use-module (8sync agenda)
#:use-module (oop goops)
(lambda (return)
(for-each
(lambda (occupant)
- (mbody-receive (_ #:key goes-by)
- (<-wait occupant 'goes-by)
- (if (member called-this goes-by)
- (return occupant))))
+ (define goes-by (mbody-val (<-wait occupant 'goes-by)))
+ (if (ci-member called-this goes-by)
+ (return occupant)))
(hash-map->list (lambda (key val) key)
(slot-ref room 'occupants)))
#f)))