if-empty changes

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

diff --git a/extra/irc/ui/commandparser/commandparser.factor b/extra/irc/ui/commandparser/commandparser.factor
index 2835023c0d624aedda30d7f2baf9c114f990addd..163517698ae94fa2636032c236c33c14707ecaee 100755 (executable)
--- a/extra/irc/ui/commandparser/commandparser.factor
+++ b/extra/irc/ui/commandparser/commandparser.factor
@@ -8,7 +8,7 @@ IN: irc.ui.commandparser
 "irc.ui.commands" require\r
 \r
 : command ( string string -- string command )\r
-    dup empty? [ drop "say" ] when\r
+    [ "say" ] when-empty\r
     dup "irc.ui.commands" lookup\r
     [ nip ]\r
     [ " " append prepend "quote" "irc.ui.commands" lookup ] if* ;\r