(define (run-replacement actor replaces replace-steps)
(when replaces
- (msg-receive (_ #:key occupants)
+ (mbody-receive (_ #:key occupants)
(<-wait replaces 'assist-replace)
(for-each
(lambda (replace-step)
;; A list of addresses... since our address object is (annoyingly)
;; currently a simple cons cell...
((exclude-1 ... exclude-rest)
- (pk 'failboat (member occupant (pk 'exclude-lst exclude))))
+ (member occupant exclude))
;; Must be an individual address!
(_ (equal? occupant exclude))))
(if exclude-it?
(match special-symbol
;; if it's a symbol, look it up dynamically
((? symbol? _)
- (msg-val (<-wait (slot-ref gameobj 'gm) 'lookup-special
- #:symbol special-symbol)))
+ (mbody-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