[MLton-commit] r7373

[Matthew Fluet]

Show raised exception.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/mlton/control/control.sml
===================================================================
--- mlton/trunk/mlton/control/control.sml	2009-12-10 03:08:31 UTC (rev 7372)
+++ mlton/trunk/mlton/control/control.sml	2009-12-10 03:08:33 UTC (rev 7373)
@@ -114,6 +114,7 @@
              before messageStr (verb, concat [name, " finished in ", done ()]))
             handle e =>
                (messageStr (verb, concat [name, " raised in ", done ()])
+                ; messageStr (verb, concat [name, " raised: ", Exn.name e])
                 ; (case Exn.history e of
                       [] => ()
                     | history =>