[MLton-commit] r6197

[Matthew Fluet]

Missing 'structure' keyword
----------------------------------------------------------------------

U   mlton/trunk/mllex/lexgen.sml

----------------------------------------------------------------------

Modified: mlton/trunk/mllex/lexgen.sml
===================================================================
--- mlton/trunk/mllex/lexgen.sml	2007-11-22 03:30:12 UTC (rev 6196)
+++ mlton/trunk/mllex/lexgen.sml	2007-11-22 03:55:19 UTC (rev 6197)
@@ -1385,7 +1385,7 @@
           say "\texception LexerError (* raised if illegal leaf ";
           say "action tried *)\n";
           say "end\n\n";
-          say ("YYPosInt : INTEGER = " ^ (!PosIntName) ^ "\n");
+          say ("structure YYPosInt : INTEGER = " ^ (!PosIntName) ^ "\n");
           say "type int = Int.int\n";
           say (if (!PosArg) then "fun makeLexer (yyinput: int -> string,yygone0:YYPosInt.int) =\nlet\n"
                 else "fun makeLexer (yyinput: int -> string) =\nlet\tval yygone0:YYPosInt.int = YYPosInt.fromInt ~1\n");