summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-11-05 12:32:20 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-11-05 12:32:20 -0400
commit99adfa83d473370a0bc0d085279a5406404a7f5a (patch)
treeb5f87a64931ea06b6e1597e112dc1de60845bb94 /src
parent16901075111d5bb14fa583b50dc64579008962aa (diff)
Adjust for different ml-lex behavior between SML/NJ and MLton
Diffstat (limited to 'src')
-rw-r--r--src/urweb.lex2
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));