projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use ci-member, allow specifying why not to being taken / put down
[mudsync.git]
/
mudsync
/
room.scm
diff --git
a/mudsync/room.scm
b/mudsync/room.scm
index 1e0f354ec0cc01a74f51235f3b9de953a92a80bb..3d860496e2fc4113e410f9c45483bb06f999057c 100644
(file)
--- a/
mudsync/room.scm
+++ b/
mudsync/room.scm
@@
-19,6
+19,7
@@
(define-module (mudsync room)
#:use-module (mudsync command)
#:use-module (mudsync gameobj)
(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)
#:use-module (8sync actors)
#:use-module (8sync agenda)
#:use-module (oop goops)
@@
-185,10
+186,9
@@
(lambda (return)
(for-each
(lambda (occupant)
(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)))
(hash-map->list (lambda (key val) key)
(slot-ref room 'occupants)))
#f)))