diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/metasyntax.ml | 2 | ||||
| -rw-r--r-- | toplevel/metasyntax.mli | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 54cbc0ae3..9912f3281 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -736,7 +736,7 @@ let interp_modifiers modl = let check_infix_modifiers modifiers = let (assoc,level,t,b,fmt) = interp_modifiers modifiers in if t <> [] then - error "explicit entry level or type unexpected in infix notation." + error "Explicit entry level or type unexpected in infix notation." let no_syntax_modifiers modifiers = modifiers = [] or modifiers = [SetOnlyParsing] diff --git a/toplevel/metasyntax.mli b/toplevel/metasyntax.mli index 7ebb81867..d9f70610b 100644 --- a/toplevel/metasyntax.mli +++ b/toplevel/metasyntax.mli @@ -56,3 +56,5 @@ val print_grammar : string -> unit (* Evaluate whether a notation is not printable *) val is_not_printable : aconstr -> bool + +val check_infix_modifiers : syntax_modifier list -> unit |