added bes to suomi

diff --git a/ly/suomi.ly b/ly/suomi.ly
index efd2a4cc86fae51748abdbbc4a41d7ede7a38216..153281e413590f72496fcdd728bfec4e940c008c 100644 (file)
--- 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))