[MLton-commit] r6070

[Matthew Fluet]

Fix Error.but strings; mayInline = true in outer lambda of Mixed case
----------------------------------------------------------------------

U   mlton/trunk/mlton/xml/cps-transform.fun

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

Modified: mlton/trunk/mlton/xml/cps-transform.fun
===================================================================
--- mlton/trunk/mlton/xml/cps-transform.fun	2007-10-14 12:15:58 UTC (rev 6069)
+++ mlton/trunk/mlton/xml/cps-transform.fun	2007-10-15 15:12:31 UTC (rev 6070)
@@ -164,7 +164,7 @@
                      {arg = xVar,
                       argType = xTy,
                       body = DirectExp.toExp bodyX,
-                      mayInline = mayInline}
+                      mayInline = true}
                   end
              | Uncurried =>
                   let
@@ -449,7 +449,7 @@
                       * CPS conversion.
                       *)
                   in 
-                     Error.bug "ImplementContinuations.transPrimExp: Profile"
+                     Error.bug "CPSTransform.transPrimExp: Profile"
                   end
              | Raise {exn, ...} => 
                   DirectExp.app
@@ -473,7 +473,7 @@
          let
          in
             case d of
-               Exception _ => Error.bug "ImplementContinuations.transDec: Exception"
+               Exception _ => Error.bug "CPSTransform.transDec: Exception"
              | Fun {decs, tyvars} => 
                   let
                      val decs =
@@ -504,7 +504,7 @@
                      DirectExp.let1 {var = k'Var, exp = k'Body, body =
                      transPrimExp (exp, expTy, k'Var, k'Ty, hVar, hTy)}
                   end
-             | PolyVal _ => Error.bug "ImplementContinuations.transDec: PolyVal"
+             | PolyVal _ => Error.bug "CPSTransform.transDec: PolyVal"
          end
       and transExp (e: Exp.t, 
                     kVar: Var.t, kTy: Type.t,