# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1320510740 14400
# Node ID 60d438cdb3a5e0f5edc3886b646a96ad6f123d6a
# Parent  fb0388f1180e5b5ebf202fc3742ad9e73f004004
Adjust for different ml-lex behavior between SML/NJ and MLton

diff -r fb0388f1180e -r 60d438cdb3a5 src/urweb.lex
--- a/src/urweb.lex	Sat Nov 05 11:33:59 2011 -0400
+++ b/src/urweb.lex	Sat Nov 05 12:32:20 2011 -0400
@@ -416,7 +416,7 @@
 <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));
diff -r fb0388f1180e -r 60d438cdb3a5 tests/sigbug.ur
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/sigbug.ur	Sat Nov 05 12:32:20 2011 -0400
@@ -0,0 +1,3 @@
+val z = 3
+val x = 1
+val y = 2
diff -r fb0388f1180e -r 60d438cdb3a5 tests/sigbug.urs
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/sigbug.urs	Sat Nov 05 12:32:20 2011 -0400
@@ -0,0 +1,3 @@
+val x : inta
+val y : into
+val z : introx