(define-mhandler (gm-lookup-special actor message symbol)
(<-reply actor message
- #:room-id (hash-ref (slot-ref actor 'special-dir) symbol)))
+ #:val (hash-ref (slot-ref actor 'special-dir) symbol)))
(define-mhandler (gm-write-home actor message text)
(define client-id (hash-ref (gm-reverse-client-dir actor)
#:text (format #f "You see ~a materialize out of thin air!\n"
guest-name)
#:exclude player)))))
-