comparison src/lacweb.lex @ 242:cc193f680193

Shorthand for multi-binding exp declaration
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Aug 2008 14:05:47 -0400
parents f5732dc1316c
children 2b9dfaffb008
comparison
equal deleted inserted replaced
241:052126db06e7 242:cc193f680193
272 <INITIAL> "datatype" => (Tokens.DATATYPE (pos yypos, pos yypos + size yytext)); 272 <INITIAL> "datatype" => (Tokens.DATATYPE (pos yypos, pos yypos + size yytext));
273 <INITIAL> "of" => (Tokens.OF (pos yypos, pos yypos + size yytext)); 273 <INITIAL> "of" => (Tokens.OF (pos yypos, pos yypos + size yytext));
274 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext)); 274 <INITIAL> "val" => (Tokens.VAL (pos yypos, pos yypos + size yytext));
275 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext)); 275 <INITIAL> "rec" => (Tokens.REC (pos yypos, pos yypos + size yytext));
276 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext)); 276 <INITIAL> "and" => (Tokens.AND (pos yypos, pos yypos + size yytext));
277 <INITIAL> "fun" => (Tokens.FUN (pos yypos, pos yypos + size yytext));
277 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext)); 278 <INITIAL> "fn" => (Tokens.FN (pos yypos, pos yypos + size yytext));
278 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext)); 279 <INITIAL> "fold" => (Tokens.FOLD (pos yypos, pos yypos + size yytext));
279 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext)); 280 <INITIAL> "case" => (Tokens.CASE (pos yypos, pos yypos + size yytext));
280 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext)); 281 <INITIAL> "if" => (Tokens.IF (pos yypos, pos yypos + size yytext));
281 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext)); 282 <INITIAL> "then" => (Tokens.THEN (pos yypos, pos yypos + size yytext));