--- a/src/Pure/Syntax/mixfix.ML Tue Sep 17 18:49:46 2024 +0200
+++ b/src/Pure/Syntax/mixfix.ML Thu Sep 19 12:08:56 2024 +0200
@@ -180,7 +180,7 @@
Position.here (pos_of mx))
| check_args _ NONE = ();
- val _ = Position.reports_text (maps (mixfix_template_reports o #3) type_decls);
+ val _ = Context_Position.reports_text ctxt (maps (mixfix_template_reports o #3) type_decls);
val mfix = map mfix_of type_decls;
val _ = map2 check_args type_decls mfix;
@@ -227,7 +227,7 @@
fun binder (c, _, Binder _) = SOME (binder_name c, c)
| binder _ = NONE;
- val _ = Position.reports_text (maps (mixfix_template_reports o #3) const_decls);
+ val _ = Context_Position.reports_text ctxt (maps (mixfix_template_reports o #3) const_decls);
val mfix = maps mfix_of const_decls;
val binders = map_filter binder const_decls;
--- a/src/Pure/Syntax/syntax_ext.ML Tue Sep 17 18:49:46 2024 +0200
+++ b/src/Pure/Syntax/syntax_ext.ML Thu Sep 19 12:08:56 2024 +0200
@@ -291,7 +291,7 @@
val nonterm_for_lhs = the_default "logic" o try dest_Type_name;
val nonterm_for_rhs = the_default "any" o try dest_Type_name;
- val _ = Position.report pos Markup.language_mixfix;
+ val _ = Context_Position.report ctxt pos Markup.language_mixfix;
val symbs0 = read_mfix ctxt sy;
fun err_in_mixfix msg = error (msg ^ " in mixfix annotation" ^ Position.here pos);