%
% by Mats Bengtsson.
-\pitchnames #`(
+pitchnamesSvenska = #`(
(cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
(cess . ,(ly:make-pitch -1 0 FLAT))
(c . ,(ly:make-pitch -1 0 NATURAL))
(hiss . ,(ly:make-pitch -1 6 SHARP))
(hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
)
-\version "1.9.8"
+
+pitchnames = \pitchnamesSvenska
+\version "2.10.0"
+
+#(ly:parser-set-note-names parser pitchnames)