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

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license.
USING: arrays calendar combinators channels concurrency.messaging fry io
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 ;
IN: irc
@ -209,7 +209,7 @@ M: nick-in-use handle-irc ( obj -- )
{ "KICK" [ \ kick ] }
[ drop \ unhandled ]
} case
[ [ tuple-slots ] [ parameters>> ] bi append ] dip add* >tuple ;
[ [ tuple-slots ] [ parameters>> ] bi append ] dip prefix >tuple ;
! Reader
: handle-reader-message ( irc-client irc-message -- )