X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=370ba47d2d67ecb104a9d37d0950a85dd6b81fa2;hp=8efe565d9b6e84752740df5f5a28a475044ae0a1;hb=bf6886fe1fb0d7128fd031c92ebeb3c8d4b9addd;hpb=754bd427883ab189433fad90293e05d9aced2f70

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 8efe565..370ba47 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -140,7 +140,7 @@
 
 (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)
@@ -225,7 +225,7 @@ Assists in its replacement of occupants if necessary and nothing else."
          ;; 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?
@@ -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? _)
-     (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