Structs that masquerade as channels

[David Storrs]

Is there a way to make a struct that can seamlessly pretend to be a channel the same way one can pretend to be an output-port?  I'm pretty sure the answer is no but wanted to confirm.

Example:

(struct person (name to) #:property prop:output-port (struct-field-index to))

(displayln "yay" (person 'bob (current-output-port)) )

"yay"  ;<==== actual result

(struct animal (name to) #:property ??? (struct-field-index to))

(define fido (animal 'dog (make-channel)))

(channel-put fido 'yay)

(channel-get (animal-to fido))

'yay  ; <=== desired result

Is there something that can go in ??? to make this work, or some other way of doing it?  I looked at impersonators but those don't seem to be it.