X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fscale-definitions-init.ly;h=c6a0f65a77938a9fa5f3fb8247ee301abd06cce2;hb=9e60ad96b799c9d5c89b38c5dc10bea41a705f23;hp=975686f667f8392add917d4a648db1be879b234b;hpb=aa384518d059d26ffd6c0da3068fbdc2a345ecc1;p=lilypond.git

diff --git a/ly/scale-definitions-init.ly b/ly/scale-definitions-init.ly
index 975686f667..c6a0f65a77 100644
--- a/ly/scale-definitions-init.ly
+++ b/ly/scale-definitions-init.ly
@@ -1,7 +1,7 @@
-\version "1.5.49"
+\version "2.2.0"
 
 
-major = #'(
+major = #`(
     (0 . 0)
     (1 . 0)
     (2 . 0)
@@ -11,18 +11,18 @@ major = #'(
     (6 . 0)
   )
 
-minor = #'(
+minor = #`(
     (0 . 0)
     (1 . 0)
-    (2 . -1)
+    (2 . ,FLAT)
     (3 . 0)
     (4 . 0)
-    (5 . -1)
-    (6 . -1)
+    (5 . ,FLAT)
+    (6 . ,FLAT)
     )
 
 
-ionian = #'(
+ionian = #`(
     (0 . 0)
     (1 . 0)
     (2 . 0)
@@ -33,68 +33,68 @@ ionian = #'(
   )  
 
 
-locrian = #'(
+locrian = #`(
     (0 . 0)
-    (1 . -1)
-    (2 . -1)
+    (1 . ,FLAT)
+    (2 . ,FLAT)
     (3 . 0)
-    (4 . -1)
-    (5 . -1)
-    (6 . -1)
+    (4 . ,FLAT)
+    (5 . ,FLAT)
+    (6 . ,FLAT)
   )  
 
 
-aeolian = #'(
+aeolian = #`(
     (0 . 0)
     (1 . 0)
-    (2 . -1)
+    (2 . ,FLAT)
     (3 . 0)
     (4 . 0)
-    (5 . -1)
-    (6 . -1)
+    (5 . ,FLAT)
+    (6 . ,FLAT)
     )
 
 
-mixolydian = #'(
+mixolydian = #`(
     (0 . 0)
     (1 . 0)
     (2 . 0)
     (3 . 0)
     (4 . 0)
     (5 . 0)
-    (6 . -1)
+    (6 . ,FLAT)
   )  
 
 
-lydian = #'(
+lydian = #`(
     (0 . 0)
     (1 . 0)
     (2 . 0)
-    (3 . 1)
+    (3 . ,SHARP)
     (4 . 0)
     (5 . 0)
     (6 . 0)
   )  
 
 
-phrygian = #'(
+phrygian = #`(
     (0 . 0)
-    (1 . -1)
-    (2 . -1)
+    (1 . ,FLAT)
+    (2 . ,FLAT)
     (3 . 0)
     (4 . 0)
-    (5 . -1)
-    (6 . -1)
+    (5 . ,FLAT)
+    (6 . ,FLAT)
 )  
 
 
-dorian = #'(
+dorian = #`(
     (0 . 0)
     (1 . 0)
-    (2 . -1)
+    (2 . ,FLAT)
     (3 . 0)
     (4 . 0)
     (5 . 0)
-    (6 . -1)
+    (6 . ,FLAT)
   )