(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
- (pk 'replace-reply (<-wait actor replaces 'assist-replace))))
+ (<-wait actor replaces 'assist-replace)))
(for-each
(lambda (replace-step)
(replace-step actor replace-reply))