* scm/chord-entry.scm (construct-chord): move chord construction

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 01e4eeb6650e87d640f6996b234039270d8ef2c2..a0fd1ed4a82e1fa7e9ae11327b2cb22c3ca648ca 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -660,7 +660,7 @@ My_lily_lexer::scan_bare_word (String str)
                } else if ((pitch = scm_hashq_get_handle (chordmodifier_tab_, sym))!= SCM_BOOL_F)
                {
                    yylval.scm = ly_cdr (pitch);
-                   return CHORDMODIFIER_PITCH;
+                   return CHORD_MODIFIER;
                }
        }