X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fsuomi.ly;h=153281e413590f72496fcdd728bfec4e940c008c;hb=b3e7bc3a6fd47b2fa6d97ceb8ffb42ad20dd9057;hp=7bb331e6d4c5570a57150bbe2b12710a20b41dc5;hpb=9c31b0d42a407a412a324a6586cfb0437de4bfd8;p=lilypond.git

diff --git a/ly/suomi.ly b/ly/suomi.ly
index 7bb331e6d4..153281e413 100644
--- a/ly/suomi.ly
+++ b/ly/suomi.ly
@@ -38,7 +38,8 @@ pitchnamesSuomi = #`(
 	(a . ,(ly:make-pitch -1 5 NATURAL))
 	(ais . ,(ly:make-pitch -1 5 SHARP))
 	(aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
-	(bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
+	(bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes. Kept for downwards compatibility
+	(bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 	(heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))  ;;non-standard name for bb
 	(b . ,(ly:make-pitch -1 6 FLAT))
 	(h . ,(ly:make-pitch -1 6 NATURAL))
@@ -48,4 +49,6 @@ pitchnamesSuomi = #`(
 
 pitchnames = \pitchnamesSuomi
 
-\version "2.1.36"
+\version "2.10.0"
+
+#(ly:parser-set-note-names parser pitchnames)