[MLton-commit] r7091

[Matthew Fluet]

Variable name.
----------------------------------------------------------------------

U   mlton/trunk/mlton/front-end/mlb-front-end.fun

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

Modified: mlton/trunk/mlton/front-end/mlb-front-end.fun
===================================================================
--- mlton/trunk/mlton/front-end/mlb-front-end.fun	2009-04-19 16:03:21 UTC (rev 7090)
+++ mlton/trunk/mlton/front-end/mlb-front-end.fun	2009-04-19 16:03:24 UTC (rev 7091)
@@ -1,4 +1,5 @@
-(* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2009 Matthew Fluet.
+ * Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -250,8 +251,8 @@
                 in
                    default
                 end
-             fun err mst =
-                fail (Ast.Basdec.Seq []) (concat ["File ", fileOrig, mst])
+             fun err msg =
+                fail (Ast.Basdec.Seq []) (concat ["File ", fileOrig, msg])
              val {fileAbs, fileUse, relativize, ...} =
                 regularize {cwd = cwd,
                             fileOrig = fileOrig,