(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))
pitchnames = \pitchnamesSuomi
-\version "2.6.0"
+\version "2.10.0"
#(ly:parser-set-note-names parser pitchnames)