diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-14 08:48:14 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-14 08:48:14 +0000 |
| commit | cb937535a6e2fd87b6964ca1a03b83deadb56033 (patch) | |
| tree | 32fcaf016385feef5bc9d75acf7b84cd5b4272e3 /toplevel | |
| parent | dce9fe9bd4cab3e560f41a8d7cbf447b27665e1f (diff) | |
- Addition of "Reserved Infix" continued.
- Tried an extension of the lexer that supports keywords starting with
a letter w/o being an ident (e.g. 'U+').
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12326 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |