From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Thu, 26 Jan 2017 21:12:48 +0000 (-0600)
Subject: remove pks
X-Git-Tag: fosdem-2017~74
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=baf2f16f3e37b4a6b69603c4c21530d4093bb193;p=mudsync.git

remove pks
---

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 7f2f4e2..c5f1648 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -552,7 +552,7 @@ By default, this is whether or not the generally-visible flag is set."
                        (<-wait occupant 'goes-by)
                      (when (member direct-obj goes-by)
                        (return occupant))))
-                 (pk 'here (mbody-val (<-wait player 'get-occupants))))
+                 (mbody-val (<-wait player 'get-occupants)))
        ;; nothing found
        #f)))
   (define (should-put-in-me)
@@ -574,11 +574,11 @@ By default, this is whether or not the generally-visible flag is set."
            (or why-not default-objection))))
   (cond
    ;; Is it not there, or maybe we won't allow it to be taken?
-   ((pk '1st (or (not this-thing) (not (should-put-in-me))))
+   ((or (not this-thing) (not (should-put-in-me)))
     (<- (message-from message) 'tell
         #:text default-objection))
    ;; the thing we wsant to take itself has objected...
-   ((pk 'objection (this-thing-objection)) =>
+   ((this-thing-objection) =>
     (lambda (objection)
       (<- (message-from message) 'tell
           #:text objection)))
@@ -592,8 +592,8 @@ By default, this is whether or not the generally-visible flag is set."
       ;; errors out or something.  Maybe it's overthinking things, I dunno.
       (<-wait this-thing 'set-loc! #:loc (actor-id gameobj))
       (<- player 'tell
-          #:text (pk 'txt `("You put " ,this-thing-name " in "
-                            ,our-name ".")))
+          #:text `("You put " ,this-thing-name " in "
+                   ,our-name "."))
       (<- player-loc 'tell-room
           #:text `(,player-name " puts " ,this-thing-name " in "
                                 ,our-name "."))))))