X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=0f4d7043e96918251bc1f70d85a63fde16c4566f;hp=5f702efce85937c9d92ac4297353379364b5dd83;hb=0017cbae1b76fb07101beda23b2a5c533a8d60f9;hpb=50cd2aba8f13ec7aecb58a683aa55ae665cf83ab

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 5f702ef..0f4d704 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -128,10 +128,10 @@
   (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))
@@ -142,7 +142,6 @@
 (define-mhandler (gameobj-init actor message)
   "Your most basic game object init procedure.
 Assists in its replacement of occupants if necessary and nothing else."
-  (display "gameobj init!\n")
   (run-replacement actor message gameobj-replace-steps*))
 
 (define (gameobj-goes-by gameobj)