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

Fix irc loading

db4
Slava Pestov 2008-04-09 00:22:25 -05:00
parent 52bb93cf40
commit 16fa44fc82
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/irc/irc.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays calendar combinators channels concurrency.messaging fry io USING: arrays calendar combinators channels concurrency.messaging fry io
io.encodings.8-bit io.sockets kernel math namespaces sequences io.encodings.8-bit io.sockets kernel math namespaces sequences
sequences.lib singleton splitting strings threads sequences.lib splitting strings threads
continuations classes.tuple ascii accessors ; continuations classes.tuple ascii accessors ;
IN: irc IN: irc
@ -209,7 +209,7 @@ M: nick-in-use handle-irc ( obj -- )
{ "KICK" [ \ kick ] } { "KICK" [ \ kick ] }
[ drop \ unhandled ] [ drop \ unhandled ]
} case } case
[ [ tuple-slots ] [ parameters>> ] bi append ] dip add* >tuple ; [ [ tuple-slots ] [ parameters>> ] bi append ] dip prefix >tuple ;
! Reader ! Reader
: handle-reader-message ( irc-client irc-message -- ) : handle-reader-message ( irc-client irc-message -- )