# HG changeset patch
# User wenzelm
# Date 1459359088 -7200
# Node ID 5b95a12b7b19d0da6da16173b9e000230f2de20d
# Parent  ff3b8e4079bd57c453b1760c14f83da491b3544e
tuned messages -- position is usually missing here;

diff -r ff3b8e4079bd -r 5b95a12b7b19 src/Pure/Isar/class.ML
--- a/src/Pure/Isar/class.ML	Wed Mar 30 19:25:04 2016 +0200
+++ b/src/Pure/Isar/class.ML	Wed Mar 30 19:31:28 2016 +0200
@@ -617,9 +617,7 @@
   (case instantiation_param lthy b of
     SOME c =>
       if Mixfix.is_empty mx then lthy |> define_overloaded (c, U) (Binding.name_of b) (b_def, rhs)
-      else
-        error ("Illegal mixfix syntax for overloaded constant " ^ quote c ^
-          Position.here (Mixfix.pos_of mx))
+      else error ("Illegal mixfix syntax for overloaded constant " ^ quote c)
   | NONE => lthy |> Generic_Target.theory_target_foundation (((b, U), mx), (b_def, rhs)) params);
 
 fun pretty lthy =
diff -r ff3b8e4079bd -r 5b95a12b7b19 src/Pure/Isar/overloading.ML
--- a/src/Pure/Isar/overloading.ML	Wed Mar 30 19:25:04 2016 +0200
+++ b/src/Pure/Isar/overloading.ML	Wed Mar 30 19:31:28 2016 +0200
@@ -160,9 +160,7 @@
     SOME (c, (v, checked)) =>
       if Mixfix.is_empty mx then
         lthy |> define_overloaded (c, U) (v, checked) (b_def, rhs)
-      else
-        error ("Illegal mixfix syntax for overloaded constant " ^ quote c ^
-          Position.here (Mixfix.pos_of mx))
+      else error ("Illegal mixfix syntax for overloaded constant " ^ quote c)
   | NONE => lthy |> Generic_Target.theory_target_foundation (((b, U), mx), (b_def, rhs)) params);
 
 fun pretty lthy =
diff -r ff3b8e4079bd -r 5b95a12b7b19 src/Pure/Syntax/local_syntax.ML
--- a/src/Pure/Syntax/local_syntax.ML	Wed Mar 30 19:25:04 2016 +0200
+++ b/src/Pure/Syntax/local_syntax.ML	Wed Mar 30 19:31:28 2016 +0200
@@ -83,8 +83,7 @@
       SOME ((x, true), ((false, add, mode), (Lexicon.mark_fixed x, T, mx)));
 
 fun prep_struct (Fixed, (c, _, Structure _)) = SOME c
-  | prep_struct (_, (c, _, mx as Structure _)) =
-      error ("Bad mixfix declaration for " ^ quote c ^ Position.here (Mixfix.pos_of mx))
+  | prep_struct (_, (c, _, Structure _)) = error ("Bad structure mixfix declaration for " ^ quote c)
   | prep_struct _ = NONE;
 
 in