Add +M7sus and +7sus chords

I'm not sure why I didn't have these here before, when I had +M9sus
and +9sus.

diff --git a/scherzo.c b/scherzo.c
index b7acce963aef1d6f0f835ffd1738b486b633ab32..dbaaa6120fb6dab7be613d02748c4ec6a780540d 100644 (file)
--- a/scherzo.c
+++ b/scherzo.c
@@ -681,6 +681,8 @@ scherzo_analyze_chord (scherzo_t *scherzo)
        { {{1, 0}, {3, -1}, {5,  0}, {6,  0}}, "m6" },
        { {{1, 0}, {2,  0}, {5,  0}, {6,  0}}, "m6sus2" },
        /* Seventh chords */
+       { {{1, 0}, {4,  0}, {5, +1}, {7,  0}}, SUP "+M7" PUS "sus" },
+       { {{1, 0}, {4,  0}, {5, +1}, {7, -1}}, SUP "+7" PUS "sus" },
        { {{1, 0}, {4,  0}, {5,  0}, {7,  0}}, "M7sus" },
        { {{1, 0}, {4,  0}, {5,  0}, {7, -1}}, "7sus" },
        { {{1, 0}, {4,  0}, {5, -1}, {7, -1}}, "7♭5sus" },