factor: use ??if instead of ?if-old

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

diff --git a/extra/irc/client/base/base.factor b/extra/irc/client/base/base.factor
index 7e3d9e5b0f67b78d9b2c5b7bd3d25409accd3409..49598e93fcbe275b2122f79114eb55e21ce7425d 100644 (file)
--- a/extra/irc/client/base/base.factor
+++ b/extra/irc/client/base/base.factor
@@ -34,7 +34,7 @@ M: to-me      chat-name sender>> ;
 ! ":flogbot2_!~flogbot2@c-50-174-221-28.hsd1.ca.comcast.net JOIN #concatenative-bots"
 ! The channel>> field is empty and it's in parameters instead.
 ! This fixes chat> for these kinds of messages.
-M: to-channel chat-name dup channel>> [ ] [ parameters>> ?first ] ?if ;
+M: to-channel chat-name [ channel>> ] [ parameters>> ?first ] ?unless ;
 
 GENERIC: chat> ( obj -- chat/f )
 M: string      chat> irc> chats>> at ;