steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/irc/messages/base/base.factor
View File

@ -108,8 +108,8 @@ PRIVATE>
#! SYNTAX: #! SYNTAX:
#! IRC: type "COMMAND" slot1 ...; #! IRC: type "COMMAND" slot1 ...;
#! IRC: type "COMMAND" slot1 ... : trailing-slot; #! IRC: type "COMMAND" slot1 ... : trailing-slot;
: IRC: ( name string parameters -- ) SYNTAX: IRC: ( name string parameters -- )
CREATE-CLASS CREATE-CLASS
[ scan-object register-irc-message-type ] keep [ scan-object register-irc-message-type ] keep
";" parse-tokens ";" parse-tokens
[ define-irc-class ] [ define-irc-parameter-slots ] 2bi ; parsing [ define-irc-class ] [ define-irc-parameter-slots ] 2bi ;