From: Christopher Allan Webber 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 "."))))))