projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove debugging pk
[mudsync.git]
/
mudsync
/
gameobj.scm
diff --git
a/mudsync/gameobj.scm
b/mudsync/gameobj.scm
index 5f702efce85937c9d92ac4297353379364b5dd83..ec95e2c9f6278fe57ba840affc0cc7d3a10d9b7d 100644
(file)
--- a/
mudsync/gameobj.scm
+++ b/
mudsync/gameobj.scm
@@
-128,10
+128,10
@@
(list gameobj-replace-step-occupants))
(define (run-replacement actor message replace-steps)
(list gameobj-replace-step-occupants))
(define (run-replacement actor message replace-steps)
- (define replaces (
pk 'replace (message-ref message 'replace #f)
))
+ (define replaces (
message-ref message 'replace #f
))
(when replaces
(let ((replace-reply
(when replaces
(let ((replace-reply
- (
pk 'replace-reply (<-wait actor replaces 'assist-replace)
)))
+ (
<-wait actor replaces 'assist-replace
)))
(for-each
(lambda (replace-step)
(replace-step actor replace-reply))
(for-each
(lambda (replace-step)
(replace-step actor replace-reply))