Fix load error in irc.ui

db4
Slava Pestov 2008-11-24 00:57:31 -06:00
parent 6027c02fac
commit 10238715f0
2 changed files with 3 additions and 3 deletions

View File

@ -5,8 +5,6 @@ USING: kernel vocabs.loader sequences strings splitting words irc.messages ;
IN: irc.ui.commandparser IN: irc.ui.commandparser
"irc.ui.commands" require
: command ( string string -- string command ) : command ( string string -- string command )
[ "say" ] when-empty [ "say" ] when-empty
dup "irc.ui.commands" lookup dup "irc.ui.commands" lookup

View File

@ -9,7 +9,7 @@ USING: accessors kernel threads combinators concurrency.mailboxes
ui.gadgets.tabs ui.gadgets.grids ui.gadgets.packs ui.gadgets.labels ui.gadgets.tabs ui.gadgets.grids ui.gadgets.packs ui.gadgets.labels
io io.styles namespaces calendar calendar.format models continuations io io.styles namespaces calendar calendar.format models continuations
irc.client irc.client.private irc.messages 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 RENAME: join sequences => sjoin
@ -245,3 +245,5 @@ M: irc-tab pref-dim*
: main-run ( -- ) run-ircui ; : main-run ( -- ) run-ircui ;
MAIN: main-run MAIN: main-run
"irc.ui.commands" require