[MLton-commit] r6057

[Matthew Fluet]

Unused variable
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/xml/cps-transform.fun
===================================================================
--- mlton/trunk/mlton/xml/cps-transform.fun	2007-09-28 22:31:56 UTC (rev 6056)
+++ mlton/trunk/mlton/xml/cps-transform.fun	2007-09-29 13:45:53 UTC (rev 6057)
@@ -451,7 +451,7 @@
                   in 
                      Error.bug "ImplementContinuations.transPrimExp: Profile"
                   end
-             | Raise {exn, extend} => 
+             | Raise {exn, ...} => 
                   DirectExp.app
                   {func = h,
                    arg = transVarExp exn,