has-participant? ( name irc-chat -- ? )


Vocabulary
irc.client.participants

Inputs
namean object
irc-chatan object


Outputs
?an object


Definition
IN: irc.client.participants

GENERIC: has-participant? ( name irc-chat -- ? )


Methods
USING: accessors assocs irc.client.chats irc.client.participants
;

M: irc-channel-chat has-participant? participants>> key? ;


USING: irc.client.chats irc.client.participants kernel ;

M: irc-chat has-participant? 2drop f ;