Don't tell ourselves what we're doing

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index c5f1648e12209ecf6340da428fb35b3508bd562a..f14babe0b62d1c592016c3722391233a14b71869 100644 (file)
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -533,7 +533,8 @@ By default, this is whether or not the generally-visible flag is set."
                    ,our-name "."))
       (<- player-loc 'tell-room
           #:text `(,player-name " takes " ,thing-to-take-name " from "
                    ,our-name "."))
       (<- player-loc 'tell-room
           #:text `(,player-name " takes " ,thing-to-take-name " from "

-                                ,our-name "."))))))
+                                ,our-name ".")
+          #:exclude player)))))

 
 (define* (cmd-put-in gameobj message
                      #:key direct-obj indir-obj preposition)
 
 (define* (cmd-put-in gameobj message
                      #:key direct-obj indir-obj preposition)


@@ -596,4 +597,5 @@ By default, this is whether or not the generally-visible flag is set."
                    ,our-name "."))
       (<- player-loc 'tell-room
           #:text `(,player-name " puts " ,this-thing-name " in "
                    ,our-name "."))
       (<- player-loc 'tell-room
           #:text `(,player-name " puts " ,this-thing-name " in "

-                                ,our-name "."))))))
+                                ,our-name ".")
+          #:exclude player)))))