proper Context_Position.report, following 5328d67ec647;
authorwenzelm
Thu, 19 Sep 2024 12:08:56 +0200
changeset 80899 51c338103975
parent 80898 71756d95b7df
child 80900 2c75875ccf94
proper Context_Position.report, following 5328d67ec647;
src/Pure/Syntax/mixfix.ML
src/Pure/Syntax/syntax_ext.ML
--- 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);