1
Fork 0

Lex '|>' as the RECV token.

This commit is contained in:
Michael Sullivan 2011-05-26 18:16:24 -07:00
parent 147b088125
commit 55b40e6894
2 changed files with 14 additions and 6 deletions

View file

@ -674,12 +674,19 @@ fn next_token(&reader rdr) -> token::token {
}
case ('|') {
if (rdr.next() == '|') {
rdr.bump();
rdr.bump();
ret token::OROR;
} else {
ret binop(rdr, token::OR);
alt (rdr.next()) {
case ('|') {
rdr.bump();
rdr.bump();
ret token::OROR;
}
case ('>') {
rdr.bump();
ret token::RECV;
}
case (_) {
ret binop(rdr, token::OR);
}
}
}

View file

@ -49,6 +49,7 @@ tag token {
QUES;
RARROW;
SEND;
RECV;
LARROW;
LPAREN;
RPAREN;