X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Froom.scm;h=10932c9314fa3ff9e3b2bb7285e57ac6e562ddee;hp=a84550d630c726f7e6588d63a740d4d07bfed0ef;hb=4d1280ec16d7645817bf741cde658e358de66327;hpb=d198683d31a3b359e26cc688cc04cebc8ca978c6

diff --git a/mudsync/room.scm b/mudsync/room.scm
index a84550d..10932c9 100644
--- a/mudsync/room.scm
+++ b/mudsync/room.scm
@@ -71,7 +71,9 @@
    (loose-direct-command "look" 'cmd-look-at)
    (empty-command "look" 'cmd-look-room)
    (empty-command "go" 'cmd-go-where)
-   (loose-direct-command "go" 'cmd-go)))
+   (loose-direct-command "go" 'cmd-go)
+   ;; (greedy-command "say" 'cmd-say)
+   ))
 
 (define room-actions
   (build-actions
@@ -244,7 +246,8 @@ claim to point to."
    (matching-object
     (let ((obj-desc
            (message-ref
-            (<-wait room matching-object 'get-desc)
+            (<-wait room matching-object 'get-desc
+                    #:whos-looking (message-from message))
             'val)))
       (if obj-desc
           (<- room (message-from message) 'tell