lilypond-1.0.7

diff --git a/lily/my-lily-lexer.cc b/lily/my-lily-lexer.cc
index 2931b16517638522fa5ed6cbf80c1cce4be6a08d..869d5527bd81098aca03a036a5649eb9f5e76451 100644 (file)
--- a/lily/my-lily-lexer.cc
+++ b/lily/my-lily-lexer.cc
@@ -121,6 +121,11 @@ My_lily_lexer::set_identifier (String name_str, Identifier* i, bool unique_b)
 #endif
       delete old;
     }
+  if (lookup_keyword (name_str) >= 0)
+    {
+      warning (  _f ("Identifier name is a keyword (`%s')", name_str));
+    }
+  
   (*scope_l_arr_.top ())[name_str] = i;
 }