projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Clean up the networking code a bit.
[mudsync.git]
/
mudsync
/
gameobj.scm
diff --git
a/mudsync/gameobj.scm
b/mudsync/gameobj.scm
index 8efe565d9b6e84752740df5f5a28a475044ae0a1..44602dfb5463d5dfe5c4e0cd4d655b88c8e8b0c9 100644
(file)
--- a/
mudsync/gameobj.scm
+++ b/
mudsync/gameobj.scm
@@
-140,7
+140,7
@@
(define (run-replacement actor replaces replace-steps)
(when replaces
(define (run-replacement actor replaces replace-steps)
(when replaces
- (m
sg
-receive (_ #:key occupants)
+ (m
body
-receive (_ #:key occupants)
(<-wait replaces 'assist-replace)
(for-each
(lambda (replace-step)
(<-wait replaces 'assist-replace)
(for-each
(lambda (replace-step)
@@
-348,8
+348,8
@@
By default, this is whether or not the generally-visible flag is set."
(match special-symbol
;; if it's a symbol, look it up dynamically
((? symbol? _)
(match special-symbol
;; if it's a symbol, look it up dynamically
((? symbol? _)
- (m
sg
-val (<-wait (slot-ref gameobj 'gm) 'lookup-special
- #:symbol special-symbol)))
+ (m
body
-val (<-wait (slot-ref gameobj 'gm) 'lookup-special
+
#:symbol special-symbol)))
;; if it's false, return nothing
(#f #f)
;; otherwise it's probably an address, return it as-is
;; if it's false, return nothing
(#f #f)
;; otherwise it's probably an address, return it as-is