[MLton-commit] r6720

[Matthew Fluet]

Regularize printing of size stats
----------------------------------------------------------------------

U   mlton/trunk/mlton/control/control.sml

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

Modified: mlton/trunk/mlton/control/control.sml
===================================================================
--- mlton/trunk/mlton/control/control.sml	2008-08-19 22:10:38 UTC (rev 6719)
+++ mlton/trunk/mlton/control/control.sml	2008-08-19 22:10:46 UTC (rev 6720)
@@ -1,4 +1,4 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -252,7 +252,7 @@
 
 fun 'a sizeMessage (name: string, a: 'a): Layout.t =
    let open Layout
-   in str (concat [name, " size is ",
+   in str (concat [name, " size = ",
                    Int.toCommaString (MLton.size a), " bytes"])
    end