From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 7 May 2016 20:30:26 +0000 (-0500)
Subject: remove debugging pk
X-Git-Tag: fosdem-2017~151
X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=commitdiff_plain;h=f2bfb30b73813b7723c5a59f277e17862fd8aaaa

remove debugging pk
---

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 5f702ef..ec95e2c 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))