irc.messages: use SYNTAX: instead of parsing

db4
Bruno Deferrari 2009-04-08 23:26:58 -03:00
parent 4cc3dfb3c5
commit 4d722001e9
1 changed files with 2 additions and 2 deletions

View File

@ -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 ;