--- a/src/Pure/ML-Systems/polyml.ML Tue Mar 25 19:13:33 2014 +0100
+++ b/src/Pure/ML-Systems/polyml.ML Tue Mar 25 19:27:55 2014 +0100
@@ -118,7 +118,6 @@
PolyML.Compiler.reportUnreferencedIds := true;
PolyML.Compiler.printInAlphabeticalOrder := false;
PolyML.Compiler.maxInlineSize := 80;
-(*PolyML.Compiler.reportExhaustiveHandlers := true;*)
fun ml_prompts p1 p2 = (PolyML.Compiler.prompt1 := p1; PolyML.Compiler.prompt2 := p2);
--- a/src/Pure/ML/exn_trace_polyml-5.5.1.ML Tue Mar 25 19:13:33 2014 +0100
+++ b/src/Pure/ML/exn_trace_polyml-5.5.1.ML Tue Mar 25 19:27:55 2014 +0100
@@ -12,3 +12,5 @@
val _ = tracing (cat_lines (title :: trace));
in reraise exn end);
+PolyML.Compiler.reportExhaustiveHandlers := true;
+