tuned messages -- position is usually missing here;
authorwenzelm
Wed, 30 Mar 2016 19:31:28 +0200
changeset 62765 5b95a12b7b19
parent 62764 ff3b8e4079bd
child 62766 70b73465f636
tuned messages -- position is usually missing here;
src/Pure/Isar/class.ML
src/Pure/Isar/overloading.ML
src/Pure/Syntax/local_syntax.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 =
--- 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 =
--- 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