irc.messages: use SYNTAX: instead of parsing
parent
4cc3dfb3c5
commit
4d722001e9
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue