X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fscale-definitions-init.ly;h=712be245bdf31ae8ee7ad663c676e069e0d7bf66;hb=55aad8c485e14d29d78eddc0782a5e9901c6bf2c;hp=4b45dd7bdf529e7df14349891d265db19e0acce6;hpb=54685cedab8c7e6ce9cfc754dc6b6c646e8421ff;p=lilypond.git

diff --git a/ly/scale-definitions-init.ly b/ly/scale-definitions-init.ly
index 4b45dd7bdf..712be245bd 100644
--- a/ly/scale-definitions-init.ly
+++ b/ly/scale-definitions-init.ly
@@ -1,7 +1,7 @@
-\version "1.5.68"
+\version "2.14.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)
   )