--- a/src/Pure/ML/ml_antiquotations1.ML Tue Sep 28 17:12:53 2021 +0200
+++ b/src/Pure/ML/ml_antiquotations1.ML Tue Sep 28 21:41:38 2021 +0200
@@ -328,7 +328,7 @@
length type_args <> n andalso err (" takes " ^ string_of_int n ^ " type argument(s)");
val _ =
length term_args > m andalso Term.is_Type (Term.body_type T) andalso
- err (" cannot have more than " ^ string_of_int m ^ " type argument(s)");
+ err (" cannot have more than " ^ string_of_int m ^ " argument(s)");
val (decls1, ctxt1) = ml_args ctxt type_args;
val (decls2, ctxt2) = ml_args ctxt1 term_args;