irc: fix IRC: stack effects.

diff --git a/extra/irc/messages/base/base.factor b/extra/irc/messages/base/base.factor
index 7a9f849dea606521ac221e6a764e8b132c6fdc96..637039ec02ced7c2d2b70ac557d62cc55d4f901b 100644 (file)
--- a/extra/irc/messages/base/base.factor
+++ b/extra/irc/messages/base/base.factor
@@ -106,10 +106,10 @@ M: irc-message set-irc-command
     [ ?define-irc-parameters ] [ ?define-irc-trailing ] 2bi* ;
 PRIVATE>
 
-#! SYNTAX:
+#! SYNTAX: name string parameters ;
 #! IRC: type "COMMAND" slot1 ...;
 #! IRC: type "COMMAND" slot1 ... : trailing-slot;
-SYNTAX: IRC: ( name string parameters -- )
+SYNTAX: IRC:
     scan-new-class
     [ scan-object register-irc-message-type ] keep
     ";" parse-tokens