diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-23 15:40:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-23 15:40:52 +0000 |
| commit | 7c166a50c2aa1c9ebf7c7705d87de80beacdc3be (patch) | |
| tree | 82c29549adce0e22533fc1b39b0fe29593fc66f3 /toplevel | |
| parent | 3c6237ef95bb45b5f945cc3e5c4b14290da6ac91 (diff) | |
Clarifying that only identifiers are advertised to be turned into keywords
(or shall we advertise also non-ident keywords?)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14418 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/metasyntax.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 00ad67859..3c7e98722 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -584,7 +584,7 @@ let is_not_small_constr = function let rec define_keywords_aux = function | GramConstrNonTerminal(e,Some _) as n1 :: GramConstrTerminal(IDENT k) :: l when is_not_small_constr e -> - message ("Defining '"^k^"' as keyword"); + message ("Identifier '"^k^"' now a keyword"); Lexer.add_keyword k; n1 :: GramConstrTerminal(KEYWORD k) :: define_keywords_aux l | n :: l -> n :: define_keywords_aux l @@ -593,7 +593,7 @@ let rec define_keywords_aux = function (* Ensure that IDENT articulation terminal symbols are keywords *) let define_keywords = function | GramConstrTerminal(IDENT k)::l -> - message ("Defining '"^k^"' as keyword"); + message ("Identifier '"^k^"' now a keyword"); Lexer.add_keyword k; GramConstrTerminal(KEYWORD k) :: define_keywords_aux l | l -> define_keywords_aux l |