diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-01 10:47:10 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-01 10:47:10 -0400 |
| commit | 89f97891a33b5c0a8971d3508059a139a8815091 (patch) | |
| tree | a11a164b5f4671f27a3e77a5346b4e981e35b801 /src/urweb.lex | |
| parent | 389aae9254a3bdee3e79bb75b7355de270f2e8dd (diff) | |
Parsing 'let'
Diffstat (limited to 'src/urweb.lex')
| -rw-r--r-- | src/urweb.lex | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index cc0f5b7c..d5393e7d 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -299,6 +299,8 @@ notags = [^<{\n]+; <INITIAL> "signature" => (Tokens.SIGNATURE (pos yypos, pos yypos + size yytext)); <INITIAL> "struct" => (Tokens.STRUCT (pos yypos, pos yypos + size yytext)); <INITIAL> "sig" => (if yypos = 2 then initialSig () else (); Tokens.SIG (pos yypos, pos yypos + size yytext)); +<INITIAL> "let" => (Tokens.LET (pos yypos, pos yypos + size yytext)); +<INITIAL> "in" => (Tokens.IN (pos yypos, pos yypos + size yytext)); <INITIAL> "end" => (Tokens.END (pos yypos, pos yypos + size yytext)); <INITIAL> "functor" => (Tokens.FUNCTOR (pos yypos, pos yypos + size yytext)); <INITIAL> "where" => (Tokens.WHERE (pos yypos, pos yypos + size yytext)); |