remove debugging pk
authorChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 7 May 2016 20:30:26 +0000 (15:30 -0500)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Sat, 7 May 2016 20:30:26 +0000 (15:30 -0500)
mudsync/gameobj.scm

index 5f702efce85937c9d92ac4297353379364b5dd83..ec95e2c9f6278fe57ba840affc0cc7d3a10d9b7d 100644 (file)
   (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))