diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-11-05 12:32:20 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-11-05 12:32:20 -0400 |
commit | e548283b4060c3d43573a4678a5d8d637efeb3fb (patch) | |
tree | b5f87a64931ea06b6e1597e112dc1de60845bb94 /src/urweb.lex | |
parent | 039c0459b9fd51337a2b17aea1618b423605e636 (diff) |
Adjust for different ml-lex behavior between SML/NJ and MLton
Diffstat (limited to 'src/urweb.lex')
-rw-r--r-- | src/urweb.lex | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index 21e3d603..19f28738 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -416,7 +416,7 @@ xint = x[0-9a-fA-F][0-9a-fA-F]; <INITIAL> "structure" => (Tokens.STRUCTURE (pos yypos, pos yypos + size yytext)); <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> "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)); |