release: 1.4.4

[lilypond.git] / ly / chord-modifiers.ly

diff --git a/ly/chord-modifiers.ly b/ly/chord-modifiers.ly
index 673620ddf8ed37424b7c5b4dacd95a7cb32e405d..dd82fdb331726323673d30e4a8414b9403e13bb0 100644 (file)
--- a/ly/chord-modifiers.ly
+++ b/ly/chord-modifiers.ly
@@ -1,16 +1,17 @@
+\version "1.3.146"
 
 % urg!
 %
-\chordmodifiers #'(
-       (m . ( 0 2 -1 ))
-       (min . ( 0 2 -1 ))
-       (aug . ( 0 4 1 ))
-; (dim . ( -100 4 -1 ))        
-       (dim . ( -100 2 -1 ))
-; urg, not actually a chord-modifier, but it works
-; c7 -> <c bes>, c 7+ -> c b
-       (maj . ( 0 6 1 ))
-; sus4 should delete 2 too...
-       (sus . ( 0 3 0 ))
+\chordmodifiers #`(
+       (m . ,(make-pitch 0 2 -1 ))
+       (min . ,(make-pitch 0 2 -1 ))
+       (aug . ,(make-pitch 0 4 1 ))
+       ;; (dim . ,(make-pitch -100 4 -1 ))     
+       (dim . ,(make-pitch -100 2 -1 ))
+       ;; urg, not actually a chord-modifier, but it works
+       ;;  c7 -> <c bes>, c 7+ -> c b
+       (maj . ,(make-pitch 0 6 1 ))
+       ;; sus4 should delete 2 too...
+       (sus . ,(make-pitch 0 3 0 ))
 )