irc.client: Forward messages before processing for now. Change text for

[factor.git] / extra / irc / client / internals / internals.factor

diff --git a/extra/irc/client/internals/internals.factor b/extra/irc/client/internals/internals.factor
index 5d7cca4bfaa84701eeb430d00dd4b747ba60ec86..89c8423f512ccb95f49310a848dd47a77bc5fcde 100644 (file)
--- a/extra/irc/client/internals/internals.factor
+++ b/extra/irc/client/internals/internals.factor
@@ -112,9 +112,10 @@ M: f      handle-input handle-disconnect ;
 
 ! Processing loops
 
+! FIXME: should get forward channels, process the message, and then forward
 : in-multiplexer-loop ( -- ? )
     irc> in-messages>> mailbox-get
-    [ process-message ] [ forward-message ] [ irc-end? not ] tri ;
+    [ forward-message ] [ process-message ] [ irc-end? not ] tri ;
 
 : strings>privmsg ( name string -- privmsg )
     " :" prepend append "PRIVMSG " prepend string>irc-message ;