From 10238715f0be94935022448ba581fb5a282370d8 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 24 Nov 2008 00:57:31 -0600 Subject: [PATCH] Fix load error in irc.ui --- extra/irc/ui/commandparser/commandparser.factor | 2 -- extra/irc/ui/ui.factor | 4 +++- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/irc/ui/commandparser/commandparser.factor b/extra/irc/ui/commandparser/commandparser.factor index 163517698a..5179997b0d 100755 --- a/extra/irc/ui/commandparser/commandparser.factor +++ b/extra/irc/ui/commandparser/commandparser.factor @@ -5,8 +5,6 @@ USING: kernel vocabs.loader sequences strings splitting words irc.messages ; IN: irc.ui.commandparser -"irc.ui.commands" require - : command ( string string -- string command ) [ "say" ] when-empty dup "irc.ui.commands" lookup diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor index e854d285b7..b96d3e1bdc 100755 --- a/extra/irc/ui/ui.factor +++ b/extra/irc/ui/ui.factor @@ -9,7 +9,7 @@ USING: accessors kernel threads combinators concurrency.mailboxes ui.gadgets.tabs ui.gadgets.grids ui.gadgets.packs ui.gadgets.labels io io.styles namespaces calendar calendar.format models continuations irc.client irc.client.private irc.messages - irc.ui.commandparser irc.ui.load ; + irc.ui.commandparser irc.ui.load vocabs.loader ; RENAME: join sequences => sjoin @@ -245,3 +245,5 @@ M: irc-tab pref-dim* : main-run ( -- ) run-ircui ; MAIN: main-run + +"irc.ui.commands" require