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

diff --git a/ly/scale-definitions-init.ly b/ly/scale-definitions-init.ly
index 975686f667..a0e97d230b 100644
--- a/ly/scale-definitions-init.ly
+++ b/ly/scale-definitions-init.ly
@@ -1,7 +1,7 @@
-\version "1.5.49"
+\version "2.16.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)
@@ -30,71 +30,70 @@ ionian = #'(
     (4 . 0)
     (5 . 0)
     (6 . 0)
-  )  
+  )
 
 
-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)
   )
-