join-participant ( nick irc-channel-chat -- )


Vocabulary
irc.client.participants

Inputs
nickan object
irc-channel-chatan object


Outputs
None

Definition
USING: accessors assocs kernel ;

IN: irc.client.participants

: join-participant ( nick irc-channel-chat -- )
participants>> [ <participant> dup nick>> ] dip set-at ;