[MLton-commit] r6828

[Matthew Fluet]

Alphabetize strings

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

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-01 13:19:41 UTC (rev 6827)
+++ mlton/trunk/mlton/front-end/ml.grm	2008-09-01 13:19:44 UTC (rev 6828)
@@ -1067,9 +1067,9 @@
       in
          case id of
             "alloc" => PrimKind.SymbolAttribute.Alloc :: symattributes
+          | "external" => PrimKind.SymbolAttribute.External :: symattributes
           | "private" => PrimKind.SymbolAttribute.Private :: symattributes
           | "public" => PrimKind.SymbolAttribute.Public :: symattributes
-          | "external" => PrimKind.SymbolAttribute.External :: symattributes
           | _ => (error (reg (idleft, idright), concat ["invalid attribute", id])
                   ; symattributes)
       end)