# HG changeset patch
# User wenzelm
# Date 1395772075 -3600
# Node ID 20cf88cd3188cf0772c827d8ee4d1c1ff15d739d
# Parent  13f33298caa918a589ee93cd9fb049aaf1c730ca
more warnings for recent versions of Poly/ML (see also fe1f6a1707f7);

diff -r 13f33298caa9 -r 20cf88cd3188 src/Pure/ML-Systems/polyml.ML
--- 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);
 
diff -r 13f33298caa9 -r 20cf88cd3188 src/Pure/ML/exn_trace_polyml-5.5.1.ML
--- 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;
+