release: 1.3.107

[lilypond.git] / ly / svenska.ly

diff --git a/ly/svenska.ly b/ly/svenska.ly
index 09cfad936e503baa39842a99b701ded664d8ed04..8fdb6abcc148cdfeaf19174974ed25eee651127e 100644 (file)
--- a/ly/svenska.ly
+++ b/ly/svenska.ly
@@ -4,40 +4,40 @@
 % by Mats Bengtsson.
 
 \notenames #'(
-       (cessess . ( -1 0 -2 ))
-       (cess . ( -1 0 -1 ))
-       (c . ( -1 0 0 ))
-       (ciss . ( -1 0 1 ))
-       (cississ . ( -1 0 2 ))
-       (dessess . ( -1 1 -2 ))
-       (dess . ( -1 1 -1 ))
-       (d . ( -1 1 0 ))
-       (diss . ( -1 1 1 ))
-       (dississ . ( -1 1 2 ))
-       (essess . ( -1 2 -2 ))
-       (ess . ( -1 2 -1 ))
-       (e . ( -1 2 0 ))
-       (eiss . ( -1 2 1 ))
-       (eississ . ( -1 2 2 ))
-       (fessess . ( -1 3 -2 ))
-       (fess . ( -1 3 -1 ))
-       (f . ( -1 3 0 ))
-       (fiss . ( -1 3 1 ))
-       (fississ . ( -1 3 2 ))
-       (gessess . ( -1 4 -2 ))
-       (gess . ( -1 4 -1 ))
-       (g . ( -1 4 0 ))
-       (giss . ( -1 4 1 ))
-       (gississ . ( -1 4 2 ))
-       (assess . ( -1 5 -2 ))
-       (ass . ( -1 5 -1 ))
-       (a . ( -1 5 0 ))
-       (aiss . ( -1 5 1 ))
-       (aississ . ( -1 5 2 ))
-       (hessess . ( -1 6 -2 ))
-       (b . ( -1 6 -1 ))
-       (h . ( -1 6 0 ))
-       (hiss . ( -1 6 1 ))
-       (hississ . ( -1 6 2 ))
+       (cessess . ,(make-pitch -1 0 -2 ))
+       (cess . ,(make-pitch -1 0 -1 ))
+       (c . ,(make-pitch -1 0 0 ))
+       (ciss . ,(make-pitch -1 0 1 ))
+       (cississ . ,(make-pitch -1 0 2 ))
+       (dessess . ,(make-pitch -1 1 -2 ))
+       (dess . ,(make-pitch -1 1 -1 ))
+       (d . ,(make-pitch -1 1 0 ))
+       (diss . ,(make-pitch -1 1 1 ))
+       (dississ . ,(make-pitch -1 1 2 ))
+       (essess . ,(make-pitch -1 2 -2 ))
+       (ess . ,(make-pitch -1 2 -1 ))
+       (e . ,(make-pitch -1 2 0 ))
+       (eiss . ,(make-pitch -1 2 1 ))
+       (eississ . ,(make-pitch -1 2 2 ))
+       (fessess . ,(make-pitch -1 3 -2 ))
+       (fess . ,(make-pitch -1 3 -1 ))
+       (f . ,(make-pitch -1 3 0 ))
+       (fiss . ,(make-pitch -1 3 1 ))
+       (fississ . ,(make-pitch -1 3 2 ))
+       (gessess . ,(make-pitch -1 4 -2 ))
+       (gess . ,(make-pitch -1 4 -1 ))
+       (g . ,(make-pitch -1 4 0 ))
+       (giss . ,(make-pitch -1 4 1 ))
+       (gississ . ,(make-pitch -1 4 2 ))
+       (assess . ,(make-pitch -1 5 -2 ))
+       (ass . ,(make-pitch -1 5 -1 ))
+       (a . ,(make-pitch -1 5 0 ))
+       (aiss . ,(make-pitch -1 5 1 ))
+       (aississ . ,(make-pitch -1 5 2 ))
+       (hessess . ,(make-pitch -1 6 -2 ))
+       (b . ,(make-pitch -1 6 -1 ))
+       (h . ,(make-pitch -1 6 0 ))
+       (hiss . ,(make-pitch -1 6 1 ))
+       (hississ . ,(make-pitch -1 6 2 ))
 )
 \version "1.3.96";