diff src/lacweb.lex @ 18:9a578171de9e

Unification wildcards
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 14:25:27 -0400
parents f1c36df29ed7
children e6ccf961d8a3
line wrap: on
line diff
--- a/src/lacweb.lex	Sun Jun 08 14:10:51 2008 -0400
+++ b/src/lacweb.lex	Sun Jun 08 14:25:27 2008 -0400
@@ -120,6 +120,8 @@
 <INITIAL> "."         => (Tokens.DOT (yypos, yypos + size yytext));
 <INITIAL> "$"         => (Tokens.DOLLAR (yypos, yypos + size yytext));
 <INITIAL> "#"         => (Tokens.HASH (yypos, yypos + size yytext));
+<INITIAL> "__"        => (Tokens.UNDERUNDER (yypos, yypos + size yytext));
+<INITIAL> "_"         => (Tokens.UNDER (yypos, yypos + size yytext));
 
 <INITIAL> "con"       => (Tokens.CON (yypos, yypos + size yytext));
 <INITIAL> "type"      => (Tokens.LTYPE (yypos, yypos + size yytext));