[MLton-commit] r6843

[Matthew Fluet]

Fix formatting of error messages.
----------------------------------------------------------------------

U   mlton/trunk/mlton/front-end/ml.grm

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

Modified: mlton/trunk/mlton/front-end/ml.grm
===================================================================
--- mlton/trunk/mlton/front-end/ml.grm	2008-09-07 23:18:30 UTC (rev 6842)
+++ mlton/trunk/mlton/front-end/ml.grm	2008-09-08 13:55:24 UTC (rev 6843)
@@ -1054,7 +1054,7 @@
           | "private" => PrimKind.ImportExportAttribute.Private :: ieattributes
           | "public" => PrimKind.ImportExportAttribute.Public :: ieattributes
           | "stdcall" => PrimKind.ImportExportAttribute.Stdcall :: ieattributes
-          | _ => (error (reg (idleft, idright), concat ["invalid attribute", id])
+          | _ => (error (reg (idleft, idright), concat ["invalid attribute: ", id])
                   ; ieattributes)
       end)
 
@@ -1070,7 +1070,7 @@
           | "external" => PrimKind.SymbolAttribute.External :: symattributes
           | "private" => PrimKind.SymbolAttribute.Private :: symattributes
           | "public" => PrimKind.SymbolAttribute.Public :: symattributes
-          | _ => (error (reg (idleft, idright), concat ["invalid attribute", id])
+          | _ => (error (reg (idleft, idright), concat ["invalid attribute: ", id])
                   ; symattributes)
       end)