src/Pure/ML/ml_antiquotations1.ML
changeset 74377 6cefe97cb3ab
parent 74374 e585e5a906ba
child 74378 bb25ea271b15
--- 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;