From 4d722001e9a4e2c2010731b91bc6577f91bd4841 Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Wed, 8 Apr 2009 23:26:58 -0300 Subject: [PATCH] irc.messages: use SYNTAX: instead of parsing --- extra/irc/messages/base/base.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/irc/messages/base/base.factor b/extra/irc/messages/base/base.factor index 7350ef9320..d67d226d9b 100644 --- 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 ; -- 2.34.1