From f2bfb30b73813b7723c5a59f277e17862fd8aaaa Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 7 May 2016 15:30:26 -0500 Subject: [PATCH] remove debugging pk --- mudsync/gameobj.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.31.1