patch::: 1.3.96.jcn8

[lilypond.git] / scm / chord-names.scm

diff --git a/scm/chord-names.scm b/scm/chord-names.scm
index 27f4314bfb3147cff75c0f18dfe1dc7ce922fe47..ed54054cee925eca2385610cffa8ca20ad4c54e1 100644 (file)
--- a/scm/chord-names.scm
+++ b/scm/chord-names.scm
@@ -50,19 +50,19 @@
        ; C iso C.no5
        (((0 . 0) (2 . 0)) . #f)
        ; Cm iso Cm.no5
-       (((0 . 0) (2 . -1)) . ("m"))
+       (((0 . 0) (2 . -1)) . (("m")))
        ; C2 iso C2.no3
-       (((0 . 0) (1 . 0) (4 . 0)) . (("2" (type . "super"))))
+       (((0 . 0) (1 . 0) (4 . 0)) . (super "2"))
        ; C4 iso C4.no3
-       (((0 . 0) (3 . 0) (4 . 0)) . (("4" (type . "super"))))
+       (((0 . 0) (3 . 0) (4 . 0)) . (super "4"))
        ; Cdim iso Cm5-
        (((0 . 0) (2 . -1) (4 . -1)) . ("dim"))
        ; Co iso Cm5-7-
        ; urg
-        (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (("o" (type . "super"))))
+        (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (super "o"))
        ; Cdim9
-       (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" ("9" (type . "super"))))
-       (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" ("11" (type . "super"))))
+       (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" (super "9")))
+       (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" (super "11")))
        )
       chord::names-alist-banter))