From: Christopher Allan Webber Date: Thu, 5 May 2016 20:06:54 +0000 (-0500) Subject: remove stupid pre/post message stuff X-Git-Tag: fosdem-2017~176 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=a07b01054f0c8bd8dc2bc4e278ed6a00e339bc79;p=mudsync.git remove stupid pre/post message stuff --- diff --git a/mudsync/player.scm b/mudsync/player.scm index 09fc6d7..3d1ec72 100644 --- a/mudsync/player.scm +++ b/mudsync/player.scm @@ -134,12 +134,10 @@ ;; returns false for in the command response (fold (lambda (co-occupant prev) - (display "pre-message\n") (let* ((result (<-wait player co-occupant 'get-commands #:verb verb)) (commands (message-ref result 'commands)) (goes-by (message-ref result 'goes-by))) - (display "post-message\n") (append (map (lambda (command) (list command goes-by co-occupant))