# HG changeset patch
# User traytel
# Date 1361536787 -3600
# Node ID 029de23bb5e8117cb38a55ee525477ab546724b8
# Parent  064683ba110c70880345c867f7d1d19edd1ca1c6
tuned error messages

diff -r 064683ba110c -r 029de23bb5e8 src/Tools/subtyping.ML
--- a/src/Tools/subtyping.ML	Fri Feb 22 13:38:10 2013 +0100
+++ b/src/Tools/subtyping.ML	Fri Feb 22 13:39:47 2013 +0100
@@ -351,11 +351,11 @@
               | INVARIANT_TO T => (cs, unify_list [T, fst constraint, snd constraint] tye_idx
                   handle NO_UNIFIER (msg, _) =>
                     err_list ctxt (gen_msg err
-                      "failed to unify invariant arguments w.r.t. to the known map function" ^ msg)
+                      "failed to unify invariant arguments w.r.t. to the known map function\n" ^ msg)
                       (fst tye_idx) (T :: Ts))
               | INVARIANT => (cs, strong_unify ctxt constraint tye_idx
                   handle NO_UNIFIER (msg, _) =>
-                    error (gen_msg err ("failed to unify invariant arguments" ^ msg))));
+                    error (gen_msg err ("failed to unify invariant arguments\n" ^ msg))));
             val (new, (tye', idx')) = apfst (fn cs => (cs ~~ replicate (length cs) error_pack))
               (fold new_constraints (arg_var ~~ (Ts ~~ Us)) ([], (tye, idx)));
             val test_update = is_typeT orf is_freeT orf is_fixedvarT;
@@ -506,7 +506,7 @@
                       (fn cycle => fn tye_idx' => (unify_list cycle tye_idx'
                         handle NO_UNIFIER (msg, _) =>
                           err_bound ctxt
-                            (gen_msg err ("constraint cycle not unifiable" ^ msg)) (fst tye_idx)
+                            (gen_msg err ("constraint cycle not unifiable\n" ^ msg)) (fst tye_idx)
                             (find_cycle_packs cycle)))
                       cycles tye_idx
                 in