irc: fix IRC: stack effects.

db4
John Benediktsson 2011-10-18 19:20:24 -07:00
parent 375d9813fb
commit 79e2265db1
1 changed files with 2 additions and 2 deletions

View File

@ -106,10 +106,10 @@ M: irc-message set-irc-command
[ ?define-irc-parameters ] [ ?define-irc-trailing ] 2bi* ;
PRIVATE>
#! SYNTAX:
#! SYNTAX: name string parameters ;
#! IRC: type "COMMAND" slot1 ...;
#! IRC: type "COMMAND" slot1 ... : trailing-slot;
SYNTAX: IRC: ( name string parameters -- )
SYNTAX: IRC:
scan-new-class
[ scan-object register-irc-message-type ] keep
";" parse-tokens