From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 24 Mar 2000 16:40:59 +0000 (+0100)
Subject: patch::: 1.3.39.jcn1
X-Git-Tag: release/1.3.40~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f67b53222c8c3bc554c9f30813e3461e0d1cabb9;p=lilypond.git

patch::: 1.3.39.jcn1

2000-03-24    <janneke@gnu.org>

* lily/lexer.ll (My_lily_lexer): Bugfix: lookup chordmodifiers in the
	chord-modifier table (not in the pitch list).
---

diff --git a/CHANGES b/CHANGES
index ef5ace9782..3e8e0221ee 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,8 @@
+2000-03-24    <janneke@gnu.org>
+
+* lily/lexer.ll (My_lily_lexer): Bugfix: lookup chordmodifiers in the
+	chord-modifier table (not in the pitch list).
+
 1.3.38.hwn2
 ===========
 
diff --git a/VERSION b/VERSION
index 0a4d16c579..477b9587de 100644
--- a/VERSION
+++ b/VERSION
@@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond
 MAJOR_VERSION=1
 MINOR_VERSION=3
 PATCH_LEVEL=39
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=jcn1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
diff --git a/lily/lexer.ll b/lily/lexer.ll
index b567746c36..cbe754c5c3 100644
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -511,7 +511,7 @@ My_lily_lexer::scan_bare_word (String str)
 		    yylval.pitch->set_spot (Input (source_file_l (), 
 		      here_ch_C ()));
                     return (YYSTATE == notes) ? NOTENAME_PITCH : TONICNAME_PITCH;
-		} else if ((pitch = scm_hashq_ref (pitchname_tab_, sym, SCM_BOOL_F))!= SCM_BOOL_F)
+		} else if ((pitch = scm_hashq_ref (chordmodifier_tab_, sym, SCM_BOOL_F))!= SCM_BOOL_F)
 		{
 		    yylval.pitch = new Musical_pitch (pitch);
 		    yylval.pitch->set_spot (Input (source_file_l (),