 ! ======================================
 
 : irc-mailbox-get ( mailbox quot -- )
-    swap 5 seconds  [ mailbox-get-timeout swap call ] 3curry [ drop ] recover ;
+    swap 5 seconds  '[ , , , mailbox-get-timeout swap call ] [ drop ] recover ;
 
 : stream-readln-or-close ( stream -- str/f )
     dup stream-readln [ nip ] [ dispose f ] if* ;

! ======================================

: set+run-listener ( name irc-listener -- )
    [ [ listener-loop ] 2curry "listener" spawn-irc-loop ]
    [ swap irc> listeners>> set-at ]
    2bi ;


! Copyright (C) 2007 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays combinators concurrency.mailboxes fry io
       io.encodings.8-bit io.sockets kernel namespaces sequences
       sequences.lib splitting threads calendar classes.tuple
       classes ascii assocs accessors destructors continuations ;
