steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

client.base: paremeters was getting the channel name instead of the channel>> slot. try to fix it in chat-message.

locals-and-roots
Doug Coleman 2016-05-09 11:59:42 -07:00
parent 2d5368f4af
commit 449c740b23
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/irc/client/base/base.factor
View File

@ -29,7 +29,13 @@ GENERIC: chat-name ( irc-message -- name )
M: mode chat-name name>> ; M: mode chat-name name>> ;
M: to-target chat-name target>> ; M: to-target chat-name target>> ;
M: to-me chat-name sender>> ; M: to-me chat-name sender>> ;
M: to-channel chat-name channel>> ;
! to-channel messages are things like JOIN
! Freenode's join looks like:
! ":flogbot2_!~flogbot2@c-50-174-221-28.hsd1.ca.comcast.net JOIN #concatenative-bots"
! The channel>> field is empty and it's in parameters instead.
! This fixes chat> for these kinds of messages.
M: to-channel chat-name dup channel>> [ nip ] [ parameters>> ?first ] if* ;
GENERIC: chat> ( obj -- chat/f ) GENERIC: chat> ( obj -- chat/f )
M: string chat> irc> chats>> at ; M: string chat> irc> chats>> at ;