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

irc.client: Make add-listener a word instead of a generic method

db4
Bruno Deferrari 2008-06-18 23:58:10 -03:00
parent fac1feaf15
commit 646a4dd925
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/irc/client/client.factor
View File

@ -326,6 +326,5 @@ PRIVATE>
spawn-irc spawn-irc
] with-variable ; ] with-variable ;
GENERIC: add-listener ( irc-client irc-listener -- ) : irc-listener add-listener ( irc-listener irc-client -- )
M: irc-listener add-listener ( irc-client irc-listener -- ) current-irc-client '[ , (add-listener) ] with-variable ;
current-irc-client swap '[ , (add-listener) ] with-variable ;