irc.ui: Update to work with the latest irc.client changes

[factor.git] / extra / irc / ui / commands / commands.factor

diff --git a/extra/irc/ui/commands/commands.factor b/extra/irc/ui/commands/commands.factor
index 184a2b4de8fb75d1fe45b42f4bfe4572dba1b444..4bb77e7490c34b1d344ee3eba45d2947741a4adb 100755 (executable)
--- a/extra/irc/ui/commands/commands.factor
+++ b/extra/irc/ui/commands/commands.factor
@@ -8,7 +8,7 @@ IN: irc.ui.commands
 : say ( string -- )\r
     irc-tab get\r
     [ window>> client>> profile>> nickname>> <own-message> print-irc ]\r
-    [ listener>> write-message ] 2bi ;\r
+    [ chat>> speak ] 2bi ;\r
 \r
 : join ( string -- )\r
     irc-tab get window>> join-channel ;\r
@@ -18,7 +18,7 @@ IN: irc.ui.commands
 \r
 : whois ( string -- )\r
     "WHOIS" swap { } clone swap  <irc-client-message>\r
-    irc-tab get listener>> write-message ;\r
+    irc-tab get listener>> speak ;\r
 \r
 : quote ( string -- )\r
     drop ; ! THIS WILL CHANGE\r