[MLton-commit] r5984

[Vesa Karvonen]

Exceptions, too, can be reduced.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/reduce.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/reduce.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/reduce.sml	2007-09-01 10:12:10 UTC (rev 5983)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/reduce.sml	2007-09-01 10:37:51 UTC (rev 5984)
@@ -56,7 +56,7 @@
 
       fun op --> _ = failing "Reduce.--> has no default"
 
-      fun exn _ = fail "Reduce.exn not yet implemented"
+      val exn = default
       fun regExn0 _ _ = ()
       fun regExn1 _ _ _ = ()