irc.messages: use SYNTAX: instead of parsing

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

diff --git a/extra/irc/messages/base/base.factor b/extra/irc/messages/base/base.factor
index 7350ef9320c7a0de6a40e6431dc12f2fe4c2c788..d67d226d9bd6ce662dfcc4e6a3c2292c94e6acb5 100644 (file)
--- a/extra/irc/messages/base/base.factor
+++ b/extra/irc/messages/base/base.factor
@@ -108,8 +108,8 @@ PRIVATE>
 #! SYNTAX:
 #! IRC: type "COMMAND" slot1 ...;
 #! IRC: type "COMMAND" slot1 ... : trailing-slot;
-: IRC: ( name string parameters -- )
+SYNTAX: IRC: ( name string parameters -- )
     CREATE-CLASS
     [ scan-object register-irc-message-type ] keep
     ";" parse-tokens
-    [ define-irc-class ] [ define-irc-parameter-slots ] 2bi ; parsing
+    [ define-irc-class ] [ define-irc-parameter-slots ] 2bi ;